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IDENTIFICATION 


PROOUCT ID: AC -T779A-MC 

PROOUCT TITLE: CZTKGA TK25 FRT END FUNC @5 
PRODUCT DATE: MARCH, 1984 

DEPARTMENT: TAPE OIAGNOSTIC ENGINEERING 
AUTHOR : DICE SYSTEMS, INC. 


COPYRIGHT (C) 1964 BY 
DIGITAL EQUIPMENT CORPORATION, 
WESTBORO, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 

A in a TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE + Se pg NOTICE ANDO 
ae A —— CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THIS IS A PDP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11 SYSTEM (Q-BUS OR 
UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 

CZTKF, CZTKG, CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM. 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, AND 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS: 


1. CIQPMAO XXDP- > agai MANUAL; DOCUMENT NUMBER AC -S296A-AC; 
DATE: 14 JULY 1980 


1.1 REVISION HISTORY 
NEW RELEASE APRIL 1984 


El 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


PDP-11 FAMILY PROCESSOR WITH S2k WORDS OF MEMORY 
TK2S MAGTAPE SUBSYSTEM CORIVE ANDO CONTROLLER) 
CAUTION:OIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/0 PAGE) 


2.1.1 OPTIONAL HAROWARE - 


FOUR TK2S CONTROLLERS PER PDP-11, ONE 
ORIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


PDP-11 OIAC sOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 OIAGNOSTIC LOADER/MONITOR (XXDP+ ) 


2.3 PREREQUISITES 


FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


ra 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 


3.1 OPERATOR COMMANDS 


THE TK2S5 DIAGNOSTICS ARE POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 


ALL LOADING ANDO RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE 


POP -11 
PROGRAMMER'S MANUAL “CIQPMAO XXDP” PROGRAMMER’'S MANUAL NUMBER AC-S296A-AC. 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


CHMDLEO XxXDP+ Di MONITOR 
BOOTED VIA UNIT O 
28K NON-UNIBUS SYSTEM 


ENTER DATE <DD-MMM-YY>: 29-JAN-82 
RESTART ADDRESS: 152010 . } © 
THIS IS XXDP+ TYPE “H” OR “H/L” FOR HELP. 


.R CZTKGA 


CZTKGA.BIC 


DRS -EO 

CZTKG-A-O 

CZTKGA TK-25 FRT END FUNC 3 UNIT IS TK25 
RSTRT ADR 147642 

OR>START/FLAG: PNT : HOE 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
oe ON WHICH ARE “PRINT EACH TEST NBR. AS EXECUTED” AND “HALT ON 


SEQ 5 
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3.2 HARDWARE PARAMETERS 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT’S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED CUNIT 0), 
THE DEFAULT TSBA/TSOB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO ME TESTED. A VALUE, 
IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A RESPONSE. A 
"(DD)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A 
RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING SOLICITED. AN “(L>” 
THAT A LOGICAL RESPONSE IS TO BE MADE: “Y" FOR YES, “N’ FOR NO. 


UNITS (0) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS CCONTROLLERS) SPECIFIED IN THE “ UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 


Hid 
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3.3 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 
ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE “Y”" TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED. > 


INHIBIT ITERATIONS (L) N ? < TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE “Y”" TO DUMP 
SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKG - 


TST: O01 SPACE RECORDS TEST 
TST: O02 REREADS TEST 
TST: OOS WRITE DATA RETRY TEST 
TST: 004 WRITE TAPE MARK TEST 
CZTKG EOP 1 

O TOTAL ERRS 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


J1 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 


ERROR MESSAGE EXAMPLE 1 


TST: 001 SPACE RECORDS TEST 


CZTKG HRD ERR 


ERROR MESSAGE EXAMPLE 2 


CZTKG HRD ERR 00122 ON UNIT OO TST 001 SUB 003 PC: 025332 
TSSR NOT CORRECT AFTER POSITION (SPACE) COMMAND 


TSSR#=10035 


00120 ON UNIT OO TST 001 SUB 003 PC: 025214 
TAPE NOT AT BOT AFTER REWIND COMMAND 


EXPD: 002022 RECV: 002020 XOR: 000002 


06 


TERMINATION CODE 


PACKET ADDRESS 
PACKET WORD 00 
PACKET WORD #1 
PACKET WORD @2 
PACKET WORD 5 


MESSAGE BUFFER 
MESSAGE BUFFER 


#030240 


ADDRESS 
cpl 


MESSAGE BUFFER HEADE 


DATA FIELD LENG 
RESIDUAL BYTE C 
XSTATO CONTENTS 
XSTAT1 CONTENTS 
XSTAT2 CONTENTS 
XSTATS CONTENTS 


TH 
OUNTER 


= FUNCTION REJECT 
#eeeeCHECK CABLES BETWEEN CONTROLLER AND TRANSPORTesace 


#030150 


#101021 
#000012 
#000000 
#000012 
#000000 
#001000 
=000040 


SEQ 9 
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S.0 PROGRAM RUN TIMES 
THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES A 


RE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A POP-11725 (LSI) PROCESSOR 
WITH A LA-120 CONSOLE. 


THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 
ITERATIONS. THEREFOR, THE DEFAULT MODE CNORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


S.1 RUN TIMES - CZTKG 


TEST N/I DEF 
NUMBER SECS. SECS. 
1 65 65 
2 130 130 
3 120 120 
a 35 35 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 4 IN ONE COMMAND: 


Q.V. S MINS 50 SECONDS 
DEFAULT 5S MINS 50 SECONDS 


Li 
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6.0 TEST DESCRIPTIONS - CZTKG 


6.1 TEST 1 - SPACE RECORDS TEST 


SEASEAHASEAERESERAEEREDESEEEEAEEERESEDAEDESEEEEEADEREDEEEEDE 
# NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE « 
« ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT «+ 
SHASAAHAEREEEASAEEEEEEEREEAEAEEEEASEEEEEEAEEADEDEOEREREDEDES 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE ry REVERSE 
POSITION COMMANDS OPERATE PROPERLY WHEN SPACING OVER NORMAL DATA RECORDS. 
OPERATION WHEN SPACING OVER TAPE MARKS IS VERIFIED IN A SUBSEQUENT TEST. 

THE BASIC WRITE DATA TEST SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST 
TO PRODUCE MEANINGFUL RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. 
IN EACH OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS OF 
VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH RECORD INDICATE 
THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER EACH SPACING OPERATION, T 
TAPE POSITION IS VERIFIED BY READING THE NEXT OR PREVIOUS RECORD AND 
COMPARING THE POSITION DATA WITH THE EXPECTED RESULT. 


6.1.1 TEST 1, SUBTEST 1: - 
THIS SUBTEST VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH THE CLEAR 


—- CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK FLAG (VCK) IS 


6.1.2 TEST 1, SUBTEST 2: - 
THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH THE CLEAR 
VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 


a, VOLUME CHECK (VCK) FLAG IS 


6.1.5 TEST 1, SUBTEST 5: - 


THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE RECORD OFF 
BOT AND CAUSE BOT STATUS TO BE CLEARED. 


6.1.4 TEST 1, SUBTEST 4: - 


THIS SUBTEST wage Ay THAT SPACE RECORDS REVERSE CAN SPACE BACK OVER THE 
FIRST RECORD ON TAPE. 


M1 
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6.1.5 TEST 1, SUBTEST 5: - 


THIS SUBTEST VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A MULTIPLE 
NUMBER OF RECORDS (2 THROUGH 64K, OR THE MAXIMUM NUMBER OF RECORDS WRITTEN 
ON THE TAPE, WHICHEVER IS LESS.). 


6.1.6 TEST 1, SUBTEST 6: - 


THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A MULTIPLE 
NUMBER OF RECORDS (2 THROUGH 64K, OR THE MAXIMUM NUMBER OF RECORDS WRITTEN 
ON THE TAPE, WHICH EVER IS LESS). 


6.1.7 TEST 1, SUBTEST 7: - 


THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE TAPE IS AT 
BOT RESULTS IN FUNCTION REJECT TERMINATION WITH THE NONEXECUTABLE FUNCTION 
(NEF) ERROR BIT SET. 


6.1.86 TEST 1, SUBTEST 8: - 


THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT CAUSES THE 
TAPE TO RUN INTO BOT CWITH THE TAPE NOT INITIALLY AT BOT) CAUSES A TAPE 
STATUS ALERT TERMINATION AND SETS THE REVERSE INTO BOT (RIB) STATUS BIT. 


SEQ 12 
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6.2 TEST 2 - REREADS TEST 


THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT COMMANDS 
OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN DATA BUFFER 
BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY SPACE IS AVAILIABLE), 
AND BYTE-SWAP (SWP) AND OPPOSITE COPP) CONRTOL ARE USED. ALSO TESTED ARE 
PROPER TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER 
ADDRESSES, AND DATA BUFFERS IN NONEXISTENT MEMORY. 


6.2.1 TEST 2, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 AND SWB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A 
SERIES OF TAPE RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE IS 
THEN REWOUND AGAIN. FOR EACH RECORD THE TAPE IS SPACED FORWARD ONE RECORD 
AND THE REREAD PREVIOUS COMMAND IS ISSUED. RESULTS (STATUS, DATA, ETC.) 
ARE VERIFIED. THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE 
LENGTH OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.2.2 TEST 2, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 AND SWB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
Te 4 IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 

Y . 


6.2.5 TEST 2 SUBTEST 5: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 (READ 
REVERSE, SPACE FORWARD) AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND, AND THEN WRITTEN WITH A SERIES OF TEST RECORDS OF VARYING LENGTH 
AND DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD CONTAIN ITS RECORD 
NUMBER CINDICATING POSITION ON TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR 
EACH TEST RECORD THE FOLLOWING SEQUENCE IS EXECUTED: 


1. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED AND THE RESULTS 
ARE CHECKED. 


2. & PEAD FORWARD COMMAND IS THEN ISSUED AND THE DATA IS CHECKED TO 
VERIFY THAT THE TAPE WAS af take aes PROPERLY AFTER THE REREAD 
PREVIOUS COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT POSITIONED 
AT THE START OF THE TEST RECORD.). THE READ FORWARD COMMAND 
omer THE TAPE POSITIONED PROPERLY AT THE START OF THE NEXT 


Be 
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THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.2.4 TEST 2, SUBTEST 4: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP*1 AND SwWB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
mk sy IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 

Y . 


6.2.5 TEST 2, SUBTEST 5: - 


THIS SUBTEST VERIFIES THAT A REREAD PREVIOUS COMMAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE RECORD LENGTH LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP ( O AND 1 ). 


6.2.6 TEST 2, SUBTEST 6: - 


THIS SUBTEST VERIFIES THAT A REREAD PREVIOUS COMMAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE oat CAUSES TAPE STATUS ALERT e+ aise 


IN THE MES 
IATE NONZERO VALUE (E.G THE DIFFERENCE BETWEEN THE ORIGINAL BYTE 
ae faaek RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH STATES 


6.2.7 TEST 2, SUBTEST 7: - 


THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 AND SWB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A 
SERIES OF TEST RECORDS OF VARYING LENGTH AND DATA CONTENT. THE TAPE IS 
THEN REWOUND AGAIN. FOR EACH TEST RECORD THE TAPE IS SPACED FORWARD ONE 
RECORD AND A REREAD NEXT COMMAND IS ISSUED. RESULTS (STATUS, DATA, ETC.) 
ARE VERIFIED. THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE 
LENGTH OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.2.8 TEST 2, SUBTEST &: - 


THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=*0 AND SWB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
TH oy IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 

Y . 


Le 
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6.2.9 TEST 2, SUBTEST 9: - 


THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP*1 (READ 
FORWARD, SPACE REVERSE) AND SWB*0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TAPE RECORDS VARYING IN LENGTH 
AND DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD CONTAIN ITS RE“ORD 
NUMBER CINDICATING POSITION ON TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR 
EACH TEST RECORD THE FOLLOWING SEQUENCE IS EXECUTED: 


1. THE REREAD NEXT COMMAND WITH OPP*1 IS ISSUED AND THE RESULT IS 
CHECKED. 


2. A READ FORWARD COMMAND IS THEN ISSUED AND THE DATA IS CHECKED TO 
VERIFY THAT THE TAPE WAS POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT POSITIONED AT THE 
START OF THE TEST RECORD). THE READ FORWARD COMMAND LEAVES THE 
TAPE POSITIONED PROPERLY AT THE START OF THE NEXT TEST RECORD. 


THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.2.10 TEST 2, SUBTEST 10: - 


THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=i AND SwB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
eoene IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 

Y ‘ 


6.2.11 TEST 2, SUBTEST Li: - 


THIS SUBTEST VERIFIES THAT A REREAD NEXT COMMAND READING A RECORD LONGER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
ade ~ nna C(RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH STATES OF 


6.2.12 TEST 2, SUBTEST la: - 


THIS SUBTEST VERIFIES THAT A REREAD NEXT COMMAND READING A RECORD SHORTER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORD LENGTH SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE RESIOUAL BYTE 
COUNTER IN THE MESSAGE BUFFER CONTAINS THE PROPER NONZERO MESSAGE (E.G. 

THE DIFFERENCE BETWEEN THE THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH ). RESULTS ARE VERIFIED FOR BOTH STATES OF OPP ( O AND 1). 


De 
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6.2.13 TEST 2, SUBTEST 13: - 


THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING NONEXISTANT 
MEMORY RECOVERABLE ERROR TERMINATION ( TC*4 OR 5) WITH NXM*1 ANDO THAT THE 
TAPE IS WTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS OF REREAD 
PREVIOUS/NEXT AND OPP*0/1 ARE TESTED. 


6.2.14 TEST 2, SUBTEST 14: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP=0 (SPACE REVERSE, 
READ FORWARD) AND REREAD PREVIOUS WITH OPP*1 (READ RE 

VERSE SPACE FORWARD) 

ISSUED WHEN THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
TERMINATION WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


6.2.15 TEST 2, SUBTEST 15: - 


THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP=1 (SPACE REVERSE, 
READ FORWARD) AND REREAD PREVIOUS WITH OPP=0 ( READ REVERSE, SPACE FORWARD) 
ISSUED WHEN THE TAPE POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE ( BUT 
NOT AT BOT) CAUSES as STATUS ALERT TERMINATION WITH THE REVERSE INTO BOT 
CRIB) STATUS BIT SET 


EO 
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6.3 TEST 3 - WRITE DATA RETRY TEST 


Try iii irirritiriritiritiriritriiirirriiriiiittiititiiiiiit 
# NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE ORIVE * 
¢ ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT. «+ 


SHKSPAHHEHEHEHEDARHSHEHRHHTEERHAKHEHAL AHR EEHAEAREHHAE ST ERHERARE EE TDHAH REED 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY COMMAND (SPACE 
cunteata ERASE, WRITE DATA). THE TEST CONSISTS OF THE FOLLOWING FIVE 


6.3.1 TEST 3, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE THE TAPE 
IS POSITIONED AT BOT CAUSES FUNCTION oT at, TERMINATION WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET 


6.3.2 TEST 3, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT A WRITE DATA 5 etre ISSVEO WHILE THE TAPE 
IS POSITIONED BEFORE THE FIRST RECORD ON TAPE ( BUT NOT AT BOT) CAUSES TAPE 
Dla ALERT TERMINATION, WITH THE REVERSE INTO BOT CRIB) STATUS ERROR BIT 


6.35.5 TEST 3, SUBTEST 5: - 
THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0 TERMINATES 


PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN RECORD IS READ AND 
CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS ARE USED. 


6.35.4 TEST 3, SUBTEST 4: - 
i SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=1 TERMINATES 


PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN RECORD IS READ AND 
CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS ARE USED. 


6.3.5 TEST 35, SUBTEST 5S: - 


THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND IS PERFORMING THE 
ERASE PART OF THE OPERATION BY COMPLETING THE FOLLOWING STEPS: 


1. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE WRITTEN WITH THE 
NORMAL WRITE DATA COMMAND. THIS SHOULD RESULT IN RECORDS 


SEQ 17 


FO 
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SEPERATED BY THE STANDARD INTERRECORD GAP. 


A PROGRAM TIMING VALUE IS CALIBRATED BY nae ik oe THE TAPE AND 
THEN CONTINUING THE NUMBER OF CYCLES THROUGH A PROGRAMMED LOOP 
paarrionah TE asi OVER THE SERIES OF RECORDS WRITTEN IN THE 


THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF RECORDS WRITTEN 
AGAIN, THIS TIME USING THE WRITE DATA RETRY COMMAND. THIS SHOULD 
RESULT IN RECORDS SEPERATED BY A A LONG INTERRECORD GAP. 


THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND ISSUED, AND THE 
NUMBER OF TIMING LOOP CYCLES COUNTED TO COMPLETE THE OPERATION. 


THE TWO LOOPS ARE COMPARED, CHECKING TO SEE THAT THEY DIFFER By A 
SIGNIFICANT AMOUNT. 


SEQ 18 


CREE GolE 


Ge 
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6.4 TEST 4 - WRITE/READ TAPE MARK 


SHAAHAASEESEEEESESEAREEEEESEDESEEEEREEEAEEDEREDEEDEEEDEDEDDE 
# NOTE; THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE & 
# ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT « 


SHKKERAHRHEAAREKHEAAHTARARHOHHEARHAARERHE EAE HRARHAABKRAREGCHHAKH EMH AH 


THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES PROPERLY. IT 
IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE BY CHECKING THAT THE 
READ AND SPACE RECORDS COMMANDS DETECT THE TAPE MARK. IN ADDITION, SINCE 
WRITE TAPE MARK IS THE FIRST SUBCOMMAND UNDER THE FORMAT COMMAND BEING 
TESTED, IT IS VERIFIED THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES 
PROPERLY AND THAT FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


6.4.1 TEST 4, SUBTEST 1: - 


THIS ge VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE CODE) WITH 
THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK 
CVCK) FLAG IS SET. ALL VALID MODE CODES ARE CHECKED. 


6.4.2 TEST 4, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE CODE 
CAUSES FUNCTION REJECT TERMINATION WITH THE ILLEGAL COMMAND CILC) ERROR BIT 
SET. ALL ILLEGAL MODE CODES ARE CHECKED. 


6.4.3 TEST 4, SUBTEST 3: - 


THIS SUBTEST VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE PROPERLY, AND 
THAT READ COMMANDS SUBSEQUENTLY ISSUED TO DETECT THE WRITTEN TAPE MARKS 
TERMINATE WITH TAPE STATUS ALERT AND THE TAPE MARK DETECTED (TMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED: 


1. THE CONTROLLER IS INITIALIZED AND THE TAPE REWOUND. THIS SETS THE 
VOLUME CHECK (VCK) STATUS BIT. 


2. & WRITE TAPE MARK COMMAND, WITH CvC*1, IS ISSUED AND PROPER 
TERMINATION AND STATUS IS VERIFIED (I.E. VCK*0, AND TMK=1). 


3. SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH CvC*0, ARE 
ISSUED AND PROPER TERMINATION (NORMAL) AND STATUS (TMK) VERIFIED. 


4. A READ REVERSE COMMAND IS ISSUED AND PROPER TERMINATION (TAPE 
STATUS ALERT) AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED THAT 
NO DATA IS TRANSFERRED INTO MEMORY. 


5S. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND PROPER TERMINATION 


SEQ 19 


He 
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(TAPE STATUS ALERT) AND STATUS (TMK) VERIFIED. 


6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) + cme 
IT IS ALSO VERIFIED THAT NO DATA IS TRANSFERRED INTO MEMORY 


7. A SPACE F. CORDS REVERSE COMMAND THAT CONTAINS A RECORD COUNT 
GREATER THAN 1 IS ISSUED, AND IT IS ae THAT TAPE STATUS 
ALERT TERMINATION OCCURED, TMK=1 AND THAT RBPCR CRESIOUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO VALUE. THIS 
OPERATION VERIFIES THAT DETECTION OF THE TAPE MARK CAUSE THE SPACE 
RECORDS OPERATION TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
THE DEVICE POSITIONED JUST BEFORE THE FIRST RECORD ON THE TAPE. 


8. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER SPACE RECORDS REVERSE 
COMMAND AND VERIFYING THAT TAPE STATUS ALERT TERMINATION OCCURS, 
WITH THE REVERSE INTO BOT (RIB) ERROR STATUS BIT SET. 


9. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A RECORD GREATER 
THAN 1 IS ISSUED AND IT IS VERIFIED THAT TAPE STATUS ALERT 
TERMINATION OCCURED, TMK=*1, AND THAT RBPCR (RESIDUAL BYTE/RECORD 
COUNTER) CONTAINS THE PROPER NONZERO VALUE. THIS OPERATION 
VERIFIES THAT DETECTION OF THE TAPE MARK CAUSES THE SPACE RECORDS 
OPERATIONS TO PREMATURELY TERMINATE. 


CZTKGA TK-25 FRT END FUNC @3 
PROGRAM HEADER 


002000 
002000 


002000 


Ie 


MACRO M1200 20-APR-84 08:13 PAGE 22 


.SBTTL PROGRAM HEADER 
-MCALL SVC 
svc s INITIALIZE SUPERVISOR MACROS 


BGNMOD TUV2A 
TUV2A: : 


3 ee 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
gee 


POINTER BGNSW,.BGNSF T ,BGNAU,BGNOU,BGNRPT , BGNSE TUP 
HEADER CZTKG,A,0,655.,0 


LSNAME: : sDIAGNOSTIC NAME 
-ASCII /C/ 
-ASCII /Z/ 
-ASCII /T/ 
.ASCII /K/ 
.ASCTI /G/ 
.BYTE O 
.BYTE O 
.BYTE 0 

LSREV:: sREVISION LEVEL 

LSDEPO:: 30 
-ASCII /0/ 

LSUNIT:: ;NUMBER OF UNITS 
. WORD TSPTHV 

LSTIML:: ;LONGEST TEST TIME 
.WORD 655. 

LSHPCP: : sPOINTER TO H.W. QUES. 
‘ D LS$HARD 

L$SPCP:: sPOINTER TO S.W. QUES. 
‘ L$SOFT 

LSHPTP:: - ;PTR. TO DEF. H.W. PTABLE 
= HW 

LSSPTP:: ;PTR. TO S.W. PTABLE 
-WORD L&SW 

LSLADP: : ;DIAG. END ADDRESS 
-WORD LS&LAST 

LSSTA:: sRESERVED FOR APT STATS 
-WORD O 

L$Co:: 
.WORD O 

LSDOTYP:: sDIAGNOSTIC TYPE 
.WORD O 

LSAPT:: ;APT EXPANSION 
.WORD O 

LSDOTP:: ;P7Tm. TO DISPATCH TABLE 
-WORD LSDISPATCH 

LSPRIO:: sDIAGNOSTIC RUN PRIORITY 


-WORD 0O 


SEQ 21 


CZTKGA TK-25 FRT END FUNC @3 
PROGRAM HEADER 


022000 
023040 
022764 
021770 
000000 
000000 
000000 


LSENVI:: 
LSEXP1::. 
LSMREV::_ 

BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC: 
LSREPP: ; ‘ 
LSExP4:: 

. WORD 
LSEXPS:: 

. WORD 
LSAUT:: 
L$DUT:: — 

. WORD 
L$LUN:: 
LSDESP:: 
L$LOAD:: 

EMT 
LSETP:: 
LSICP:: ; 
LS$CCP:: 

. WORD 
LSACP:: 

. WORD 
L$SPRT:: 
LSTEST:: 
LS$DLY:: 

. WORD 
LSHIME:: 


. WORD 


Je 
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sFLAGS DESCRIBE HOW IT WAS SETUP 


0 
5 sEXPANSION WORD 
:;SVC REV AND EDIT @ 
CSREVISION 
CsEDIT 
9 ;DIAG. EVENT FLAGS 
0 
0 
; POINTER TO DEVICE TYPE LIST 
LSOVTYP 
;PTR. TO REPORT CODE 
L$RPT 
0 
0 
;PTR. TO ADD UNIT CODE 
LSAU 
;PTR. TO DROP UNIT CODE 
L$DdU 
5 ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
;GENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
. sPOINTER TO ERRTBL 
;PTR. TO INIT CODE 
LSINIT 
;PTR. TO CLEAN-UP CODE 
L$CLEAN 
;PTR. TO AUTO CODE 
LSAUTO 
;PTR. TO PROTECT TABLE 
LS$PROT 
. ;TEST NUMBER 
. ;DELAY COUNT 
. ;PTR. TO HIGH MEM 


SEQ 22 


Ke 
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DEFAULT HARDWARE P -TABLE | 
780 .SBTTL DEFAULT HARDWARE P-TABLE 
781 
782 3o¢ 
783 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
784 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
ha ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
;=° 
787 002122 BGNHW OFPTBL ;DEF AULT HARD-P-TABLE 
002122 000003 . WORD L10000 -L $HW/2 
002124 LSHW:: 
res 002124 DFPTBL:: 
789 002124 172522 . WORD 172522 ; 2ND COF 2) REGISTERS. 
790 002126 000224 . WORD 224 ; INTERRUPT VECTOR 
791 002130 000240 . WORD PRIOS ; INTERRUPT PRIORITY. 


792 002132 ENOHW 
002132 L10000: 


Le 


F - APR - : 4 
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794 -SBTTL SOFTWARE P-TABLE 
795 
796 3 ee 
797 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
oo ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
,ee 

800 002132 BGNSW SFPTBL 

002132 000004 . WORD L10001-L$SW/2 

002134 L$SW:: 
801 002134 SFPTBL:: 
802 002134 000000 TRANSTST: : . WORD 0 ;sENABLE RAM DUMP IF =1 
803 002136 000000 NOITS:: . WORD 0 ; ig fea OPTION. 
804 ; QO = ITERATE. 
805 : ; 1 NZ = INHIBIT ITERATE. 
806 002140 000031 LERRMAX: ; . WORD 2s. ; LOCAL (PER TEST) ERROR LIMIT 
807 002142 000310 GERRMAX: : . WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
808 002144 ENOSW 

002144 L10001 


GBP GAnds2FABEE 60 FUNC 8 


8 
843 002144 


.SBTTL GLOBAL EQUATES SECTION 


.SBTTL GLOBAL EQUATES SECTION 


Me 
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SEQ 25 


;* 
; THE GLOBAL EQUATES SECTION Saipan PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST 


EQUALS 


: 
; BIT OIFINITIONS 


; 
BIT15== 
BIT14== 


BIT15== 20000 


BIT1l2== 
BIT1i== 


BIT10== 2000 


BITO9== 
BITOS== 
BITO7== 
BITO6== 
BITOS== 
BITO4== 
BITOS== 
BITO2== 


BITO1== 2 


BITOO== 


‘ 
BIT9== 
BITS8== 
BIT7== 
BIT6== 
BITS== 
BIT4=s=s 
BIT3== 
BIT2== 
BITi== 
BITO== 


: 
; EVEN 


T FLAG DEFINITIONS: 


; GET STANDARD EQUATES. 


;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


5 

EF .START== 32. 
EF.RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 
EF .PWR== 


’ 
; PRIORITY LEVEL DEFINITIONS 


START COMMAND WAS ISSUED 


NUE 
A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRED 


6t 


TKGA TK- 
OBAL EQUA 


FRT 


ES SECT 


844 
845 002144 


000250 


177572 
177574 
177576 
172516 


Me on FUNC 3 


Ne 
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PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIOS== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 
3 
;OPERATOR FLAG BITS 
. ; 
EVL== & 
LOT== 10 
ADR== 20 
I0U== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IX€== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 
KT1i1 ;DEFINE MEMORY MANAGEMENT REGISTERS 


.SBTT 


MEMORY MiAtiAGEMENT DEFINITIONS 


L 
;@KT11 VECTOR ADURESS 


MMVEC= 


250 
;#KT11 STATUS REGISTER ADDRESSES 


SRO= 


177572 


;@USER “I” PAGE DESCRIPTOR REGISTERS 
UIPORO= 177600 


177602 
177604 
177606 
177610 
177612 
177614 
177616 


;#USER “D” ~ DESCRIPTOR REGISTORS 


UDPDRO = 
UDPOR1 = 
UDPDR2 = 
UDPORS = 
UDPOR4 = 
UDPORS = 
UDPOR6 = 
UDPOR 7 = 
. ENDC 


177 

177622 
177624 
177626 
177630 
177632 
177634 
177636 


;#USER “I” PAGE ADDRESS REGISTERS 


SEQ 26 


BS 
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MEMORY MANAGEMENT DEFINITIONS 


IF NB 
s@USER “D” PAGE ADDRESS REGISTERS 
UDPARO= 177660 


IF NB 
s@¢SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
SIPORO= 172200 


IF NB 
s@SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SOPDRO= 172220 


. ENDC | 

s@SUPERVISOR “I” PAGE ADDRESS REGISTERS 
SIPARO= 172240 

SIPARi=® 172242 

SIPAR2= 172244 

SIPARS= 172246 

SIPAR4* 172250 

SIPARS= 172252 

SIPAR6= 172254 

« “yet 172256 


.IF NB 
s*SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SOPARO= 172260 
SOPAR1® 172262 
SDPAR2= 172264 
SOPARS* 172266 
SOPAR4= 172270 


C3 
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172316 


app Ane. 
SOPAR7= 
. ENOC 
. ENOC 
3 ¢KERNE 
KIPORO= 


;¢KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 1 0 


KIPARi« 
KIPAR2= 
KIPARS= 
KIPAR4= 
KIPARS= 
KIPAR6= 
KIPAR7= 


2 IF NB 
3 @KERNE 


178878 


172276 


L a PAGE DESCRIPTOR REGISTERS 


ive 


L “0” PAGE 
DESCRIPTOR REGISTERS 
= 172320 


L 28 PAGE ADDRESS REGISTERS 


KDPARO> 172 


CZTKGA TK-25 FRT END FUNC @3 


DS 
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TK-25 REGISTER AND PACKET DEFINITIONS 


‘ 
; SOME GENERAL EQUATES. 


ERRVEC== 
TTIVEC*= 
TTICSR== 
TTIBFRe= 


.SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 


4 


60 
177560 


177562 


s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
s INTERRUPT VECTOR FOR CONSOLE INPUT 

s BUS ADORESS OF CONSOLE INPUT 
s CONSOLE INPUT DATA BUFFER 


3° 
;BIT DEFINITIONS FOR TSSR REGISTER 


SC= BITiS 
BIE= BIT14 
SCE= BIT15 
RMR BITi2 
NXM= BIT11 
NBA= T 


OFL= 


BIT6 


BIT10 
HIADOR= BIT9IBITS 
BIT7 


FATERR= BIT4!BITS 
TERCLS= BITS!BIT2!:6IT1 


3° 


sSPECIAL CONDITION 
sBUS INTERFACE ERROR 


sEXTENDED ADDRESS BITS 
3SUB SYSTEM READY 


;OFF LINE BIT 
sFATAL TERMINATION ERROR CODES 


; TERMINATION CODES 


iy 
2 i hiaireaas FOR EXTENDED STATUS REGISTER 0 


3(xXSTO 
: 
ge 


XSOTMK = 


xSOBOT= 
XSOEOT= 


3 TAPE MARK DETECTED 


s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED DRIVE 
sWRITE LOCKED 
sBEGINNING OF TAPE 


sEND OF 


TAPE 


;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(XST1) 
5° 


SEQ 29 


eo 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 27-1 SEQ 30 
TK-25 REGISTER AND PACKET DEFINITIONS 
907 100000 X1.0LT «© BIT15 s;DATA LATE 
908 040000 X1.SPARE= BITi4 sNOT USED 
909 020000 X1.COR «© BIT13 sCORRECTABLE DATA ERROR 
910 017375 X1.MBZ = BIT12+BIT11+BIT10+BIT9-BIT7-BIT6-BITS -BIT4-BIT3-BIT2-BITO sALWAYS O 
911 000400 X1.RBP » BITS s;READ BUS PARITY ERROR 
$12 000002 X1.UNC © BITL sUNCORRECTABLE DATA OR HARD ERROR 
914 3° 
915 :;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
mT 3(xST2) 
3 - 
918 100000 X2.0PM = BITIS fag its IN PROGRESS (TAPE MOVING) 
919 040000 X2.RCE = BIT14 AM CHECKSUM ERROR 
920 035400 X2. SPARE= GIT13.B1T12.81T11-B179+8IT8 sNOT USED BY TK-25 (ALWAYS=0) 
921 002000 X2.WCF = BIT1O WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
922 000200 X2.EXTF = BIT? VIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
923 000100 X2.BUFE = BIT6 ;IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
924 000077 X2.REV = 000077 ;IF WRITE CHAR CMO THEN = MICROCODE REVISION LEVEL 
$23 000007 X2.UNIT = BIT2+BIT1+BITO :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
927 30 
928 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
34 3(XST3) 
931 177400 X3.MDE = 177400 sMICRO- DIAGNOSTIC ERROR CODE 
932 200 x * BIT? sNOT D BY TK-25 
933 000100 X3.0PI = BIT6 OPERATION INCOMPLE TE 
934 000040 X3.REV = BITS ;REVERSE 
935 000020 X3.TRF «= BIT4 s TRANSPORT RESPONSE FAILURE 
936 000010 X3.0CK = BIT3 sDENSITY CHECK 
937 000006 x3.MB2Z “BIT2+BIT1 sNOT USED ALWAYS 0 
238 000001 X3.RIB = BITO sREVERSE INTO BOT 
939 
940 36 
941 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
942 3(XST4) 
943 ~$s 
944 100000 X4.HSP = BIT15 sHIGH SPEED 
945 040000 X4.RCE = BIT14 oo COUNT EXCEEDED 
946 020000 X4.TSM = BIT13 TRANSPORT SPECIAL MODE 
947 017400 X4.MBZ = BIT12-BIT11-BIT10-B1T9-B178 sNOT USED ALWAYS 0 
aes 000377 X4.WRC = 000377 ;WRITE RETRY COUNT FIELD 
950 
951 3 
952 3 
oe ;TSSR TERMINATION CODES (BIT 0-2) 
3 
955 - 
956 
957 000006 TSREJ= 362 sCOMMANOD REJECTED 
958 000006 UNREC= 6 ; UNRECOVERABLE ERROR 
960 3¢ 
961 ; 
962 ;DEVICE REGISTER OFFSETS 


963 ; 


ro 
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TK-25 REGISTER AND PACKET DEFINITIONS 
964 ~ 
965 
266, 177776 TSBAs= -2 
967 177776 TSBAL*= -2 
968 177776 TSOB== -2 :TSOB/TSBA REGISTER 
969 177776 TSOBL*= -2 :TSOB/TSBA REGISTER 
970 177777 TSBAH== -1 
971 177777 TSDBH== -1 :TSOB/TSBA REGISTER HIGH BYTE 
972 000000 TSSR== 0 :TSSR REGISTER 
973 000001 TSSRH== 1 :TSSR REGISTER HIGH BYTE 
975 ¥s 
976 ; TSDB ADDRESS BIT DEFINITIONS 
3 @ 
978 000003 A1716 = BITi+BITO ;ADDRESS BITS 17:16 ARE IN 1;0 
980 :¢ 
981 ; COMMAND DEFINITIONS 
i 
983 000017 P .GETSTAT * 17 ;GET STATUS 
984 000013 P INIT = 13 ; INITIALIZE 
985 000012 P CONTROL © 12 ;CONTROL COMMANDS 
986 000011 FORMAT * il ;FORMAT 
987 000010 P POSITION = 10 sPOSITION 
988 000006 P_.WRTSUB - 6 ;SUBSYSTEM WRITE 
989 000005 P WRITE - 5 ; WRITE 
990 000004 P .WRTCHAR 24 ;WRITE CHARACTERISTICS 
991 000001 P READ °1 ;READ 
992 
993 - 
one ; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
ge 
996 100000 P.ACK = BIT1S ;BUFFER AVAIL FOR CONTROLLER 
997 040000 P.CVC = SIT14 ;CLEAR VOLUME CHECK 
998 020000 P.OPP = BIT13 ;REVERSE SEQUENCE OF DATA BITS 
949 010000 P.SwB = BIT12 :SWAP BYTES IN MEMORY 
1000 007400 P'MODE = BITI1!BIT1O!BIT9!BITS ;EXTENDED COMMAND MODE FIELD 
1001 000200 P.IE = BIT? ; INTERRUPT ENABLE 
1002 000140 P.FMT= BIT6!BITS ;PACKET HEADER TYPE (ALWAYS=0) 
1003 000037 P.CMD = 37 ;MAJOR COMMAND FIELD 
3¢ 
1005 ; CONTROL COMMAND MODE CODES 
ge 
1007 000000 PC .RELEASE = 00256 ;RELEASE BUFFER 
1008 000400 PC. REWIND = 19256 ; REWIND 
1009 001000 PC .NOOP © 24256 NO -OP 
1010 002000 PC. IEREW = 40256 ;REWIND IMMEDIATE INTERRUPT 
1011 002400 PC. ERASE = 50256. ;SECURITY ERASE 
1013 - 
1014 ; CONTROLLER RAM DEFINITIONS 
3° 
1016 000167 RMCHBEG = 167 ;CHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
1017 000200 RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
1018 000020 RMPKTBEG= 20 OMMAND PACKET BEGIN RAM ADDRESS 
1019 000027 RMPKTEND= 27 ;COMMAND PACKET END RAM ADDRESS 
1020 000104 RMMSGBEG= 104 :MESSAGE BUFFER BEGIN RAM ADDRESS 


000117 


000200 


RMMSGEND= 117 


3¢ 


GS 
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sMESSAGE BUFFER END RAM ADDRESS 


; 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


xSTO#= 6 

XSTie= 6. 
xST2*= 10. 
xSTS=*= ie. 
XST4*= 14, 


3*¢ 


sEXTENDED STATUS REGISTER O (¢ 4) 
sEXTENDED STATUS REGISTER 1 (WORD 5) 
sEXTENDED STATUS REGISTER 2 CWORD 6) 
sEXTENDED STATUS REGISTER 3 (WORD 7) 
sEXTENDED STATUS REGISTER 4 (¢ 8) 


: 
;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


EXBCNT=10 


SEQ 32 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 


sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3¢ 
;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO = 0 
BSEL1 =1 
SEL2 ee 
SELDATA = 4 


:;BYTE O 
;BYTE 1 
;WORD 2 
;WORD 3 


3° 
;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


Pw .NOP = 0 
PW ..RORAM e. 
PW.WTRAM = 2 
W.RFIFO e 3 
PW.WFIFO = 4 
PW.ROSTAT » 5 
PW. WCTL = 6 
Pu .WFMT = 7 
PW .WMISC = 10 
PW.WNPR * 11 
PW.D22 = 20 
PwW.011 = 21 
PW.013 * 22 
PW.NO1311 * 25 
PwW.RDEXT * 24 


3* 
;BSEL1 CODES FOR WRITE TAPE CONTROL 


5° 
WC. IFAD = BIT? 


TATUS 
sWRITE TAPE CONTROL 
;sWRITE TAPE FORMAT 
sWRITE MISCELLANEOUS 
;sWRITE NPR CONTROL 
300 MICROTEST 22 
:00 MICROTEST 11 
300 MICROTEST 15 
sDISABLE MICROTEST 11 AND 15 


sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 


sIFAD - FORMATTER ADDRESS 


H3 
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Fe SS" REGISTER AND PACKET DEFINITIONS 


1078 000100 WC. IOTAD = BIT6 sITADO - TRANSPORT ADDRESS BIT 0 
1079 000040 WC. I1TAD = BITS :ITAD1 - TRANSPORT ADDRESS BIT 1 
1080 000020 WC . ISRESV = BIT4 ;IRESVS - RESERVED 05 
1081 000010 WC. IREW ° BIT3 ;IREW - REWIND 
1082 000004 WC. IRWU = BIT2 sIRWJ - REWIND AND UNLOAD 
1083 000002 WC. IFEN = BIT1 ;IFEN - FORMATTER ENABLE 
1084 000001 wC .IGO = BITO GO 
1085 
1086 
1087 ;BSEL1 CODES FOR WRITE FORMAT 
3° 
1089 000200 WF. IMISP = BIT7 ;IHISP - HIGH SPEED 
1090 000100 WF. IWRT = BIT6 ;IWRT - WRITE 
1091 000040 WF. IREV = BITS ;IREV - REVERSE 
1092 000020 WF. IWFM = BIT4 sIWEM - WRITE FILE MARK 
1093 000010 WF .IEDIT = BIT3 ;IEDIT - EDIT 
1094 000004 WF . TERASE * BIT2 ;IERASE - ERASE 
1095 000002 WF .I3RESV * BIT1 sIRESV3 - RESERVED 03 
1096 000001 WF. I4RESV = BITO ;IRESV4 - RESERVED 04 
1098 
1099 - 
1100 ;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
g¢ 
1102 000200 MS .EXT = BIT? sINVERT SENSE OF EXTENDED FEATURES SWITCH 
1103 000020 MS .RSFIFO = BIT4 ;RESET FIFO AND INPUT PARITY ERRORR 
1104 000010 MS .RSTAPE = BITS ;RESET TAPE STATUS IN 2 FLIP-FLOPS 
1105 000006 MS.ATTN = BIT2!BIT1 sATTENTION TRIGGER FIELD 
1106 000001 MS .RSD = BITO ;RESET TIMER A,B THEN DELAY TIMES IN SEL2 
3° 
4108 ; MS.ATTN SUBCODES 
3 ¢ 
1110 000000 MSA.NOP = O«2 :NO-OP (NOTHING TRIGGERED) 
L111 000002 MSA.VOL = 1e2 ;SIMULATE ON-LINE/OFF -LINE TRANSISTION 
1112 000004 MSA.NRAM= 202 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
1113 000006 MSA.FRAM= 302 sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
3¢ 
11S ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
3° 
1117 000200 NP. IR = BIT? s INTERRUPT REQUEST (0-1 TRANSITION) 
1118 000100 NP OUT = BIT6 ;TAPE DATA DIRECTION OUT (0= IN) 
1119 000040 NP . LOOP = BITS ;ENABLE TRANSPORT LOOPBACK 
1120 000020 NP. WRP = BIT4 ;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
3¢ 
1122 ; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
ge 
1124 
1125 000200 S2.0IM * BIT7 ;WORD #9 BYTE 2 DATA IN MISS 
1126 000100 S2.ILW = BIT6 : ILwW H 
1127 000040 S2. OUTRDY = BITS ; OUT ROY H 
1128 000020 S2. INRDY ° BIT4 : IN ROY H 
1129 000010 S2.ATIMR = BITS i TIMER A FLAG H 
1130 000004 S2.BTIMR * BIT2 : TIMER B FLAG H 
1131 000003 S2. = BIT1+BITO : CUNDEF INED ) 
1132 100000 S1.PARIN - BITIS ;WORD 08 BYTE 1 PARIN H 
1133 040000 $1. I2RESV * BIT14 : IRESV2 
1134 020000 S1. I1RESV - BIT13 ' IRESV1 
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TK-25 REGISTER AND PACKET DEFINITIONS 


177560 


i 


MACRO M1200 20-APR-84 08:13 PAGE 27-5 


$1. IE0T = BITle 
S1.TIOENT * BIT11 
$1.ICER * BIT10 
S1. IF MK * BITS 
$1. IHER = BITS 
SO. ISPEED « BIT7 
SO. IRDY = BIT6 
> § = BITS 
SO. ILOP = BIT4 
SO. IOBY * BITS 
SO. IRWO = BITe2 
SO.IFBY = BIT1 
SO.IFPT = BIT 
i SPECIAL KEYBORD 
TKS #177560 
TKB #177562 
TPS #177564 
TPB *177566 
HIMEM #007776 
: CONTROLLER DEFINITIONS 
; 
‘ 
CSR =174400 
BAR #174402 
DAR =174404 
MPR *174406 


CONTROLLER COMMANDS 


TTICSR 


17756C 


I H 
WORD #8 BYTE O ISPEED H 


STUFF FOR MOVER PROGRAM 


sKEYBOARD STATUS REGISTER 
sKEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 
sHIGH MEMORY MASK VALUE 


;STATUS AND CONTROL REGISTER 
;0L ADDRESS REGISTER 
;PLATTER ADDRESS 
sMULTIPURPOSE REGISTER 


;GET STATUS COMMAND 

;SEEK TRACK AND HEAD SELECT 
;sREAD SECTOR HEADER 

sREAD COMMAND 

sREAD SECTOR NO HEADER CHECK 


sORIVE READY BIT IN STATUS REG. 
;STATUS AND RESET 

sMASK FOR COVER OPEN 

sHEADS UNLOADED 

sMASK FOR CYLINDER ADDRESS 
s;DONE SET OR ERROR SET BITS 


sKEYBOARD INPUT STATUS 


SEQ 34 


JS 
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TK-25 REGISTER AND PACKET DEFINITIONS | 


1192 177562 TTIBFR = 177562 sKEYBOARD DATA REGISTER 
1193 177564 TTOCSR = 177564 sCONSOLE PRINTER STATUS REGISTER 
1194 177566 TTOBFR = 177566 sCONSOLE PRINTER DATA REGISTER 


KS 
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CIAL MACROS AND OPDEFS. | 
1197 .SBTTL SPECIAL MACROS AND OPDEFS. 

1198 
1199 
1200 34 
1201 ;SAVE GENERAL REGS 1 TO 5 
1202 i- 
1203 
1204 .MACRO SAVREG 
1205 JSR RS ,REGSAV 
1206 .ENOM 
1207 
1208 3¢ 
tH ; MACRO TO FORCE AN ERROR 
1 ;- 
1211 .MACRO FORCERROR TAG ,NOTSSR 
1212 -NLIS 
1215 .IIF NOF LISTALL, .NLIST 
1214 -LIST 
1215 .IF 8 NOTSSR 
1216 MOV TSSRCRS),R1 ;READ TSSR 
1217 .ENOC 
1218 MOV FORCER ,FORCER 3IS FORCER SET? (LEAVE C BIT ALONE) 
1219 BNE TAG ;BR IF YES 
1220 .NLIST 
1221 .IIF NOF LISTALL, .LIST 
1222 LIST 
1223 
1224 
1225 3° 
1226 ; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
1227 ; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
1228 ; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
1229 ; FORCER TO 177777 
7 ; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
3° 
1232 -MACRO FORCEXIT TAG 
1233 -NLIST 
1234 .IIF NOF LISTALL, .NLIST 
1235 .LIST 
1236 MOV FORCER ,FORCER :;IS FORCER NEGATIVE? 
1237 BMI TAG ;B8R IF YES 
1238 -NLIST 
1239 .IIF NOF LISTALL, .LIST 
1240 -LIST 
1241 . ENOM 
1242 3° 
toes , MACRO TO INCREMENT ERROR COUNTS 
1245 * MACRO NEXT .ERRNO 
1246 -NLIST 
1247 333.IIF NOF LISTALL, .NLIST 
1248 ERRNO =ERRNO+1 
1249 333.ITIF NOF LISTALL, .LIST 
1250 .LIST 
1251 .ENOM 
1252 


1253 3° 


ee 
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SPECIAL MACROS AND OPDEFS. 


1254 sMACRO TO PERFORM XOR 
1255 in 


1264 000000 EN=0 ; INITIALIZE ERROR NUMBER 
1265 .SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


R 
oO 


1 

1272 002144 000000 FORCER: : 0 ; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
3 ; - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 

1274 ; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


MS 


KGA TK- F F o MACRO M - APR - : P 9 
f2 TKGA MTR CERT IONS UNC @3 CRO M1200 20 84 08:13 AGE 2 SEQ 38 
1279 .SBTTL GLOBAL DATA SECTION 
a 
1282 ‘ THE GLOBAL DATA a tt CONTAINS DATA THAT ARE USED 
1263 ;IN MORE THAN ONE TEST. 
1284 3-- 
1285 
1286 ; 
1287 ; THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
ot ;SINGLE UNIT DEFAULTS CLISTED) ARE IN THE DEFAULT P-TABLE. 
; 
1290 002146 000000 EPRTSW:: .WORDB O ;sPRINT SWITCH 
1291 002150 000000 UNITN: : WORD O sUNIT @ UNDER TEST. 
1292 002152 000000 QVP:: .WORD O S QUICK VERIFY FLAG. 
1293 002154 000000 CSRADOR: : -WORDB O sADDRESS OF CSR FOR CURRENT DEVICE 
1294 002156 000224 IVEC:: -WORD 224 s INTERRUPT VECTOR 
1295 002160 000200 IPRI:: -.WORD PRIO4 ; INTERRUPT PRIORITY. 
296 002162 000000 TSTCNT:: .WORD O ;NUMBER OF TESTS RUN IN THIS PASS 
1297 002164 000000 LOOPCNT: : .WORD O ; REMAINING ITERATION COUNT FOR TEST 
1298 002166 000000 DEVCNT:: -WORD O sNUMBER OF DEVICE UNDER TEST 
1299 002170 000000 FATFLG: -WORD O SSET IF FATAL ERROR IS DETECTED IN TEST 
1300 002172 000000 INTRECV: .WORD O ;SET IF TAPE INTERRUPT WAS RECEIVED 
1301 002174 000000 BENBSW .WORD O ;BUFFER ENABLE SWITCH SW O=OFF ;1=0N 
1302 002176 000000 EXPD WORD O ;EXPECTED RAM DATA FOR PRAMPKT ROUTINE 
1303 002 000000 RECV:: .WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
1304 002202 000000 ERRHI: : WORD O ;HIGH ADORESS MEMORY ERROR 
1305 002204 000000 E 0 ;LOW ADDRESS MEMORY ERROR 
1306 002206 RAMDATA: : BLKW 16. ;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1307 002246 000000 RAMSIZ ¢) ;RAM DATA SIZE FOR PRAMPKT ROUTINE 
1308 002250 000000 RCVHIADD WORD O ;sRECEIVED BUFFER HIGH ADDRESS 
1309 002252 000000 RCVLOADD: : -WORD O ;sRECEIVED BUFFER LOW ADDRESS 
1310 002 000000 COUNT: WORD O ;TEST COUNT PATTERN 
1311 002256 000000 DATA:: -WORD O ;TEST DATA 
1312 002260 000000 TSTFLAG WORD O ;TEST FLAG WORD 
1313 002262 000000 TSTPTR WORD O ;TSTBLK POINTER 
1314 002264 000000 PRMNO: : .WORDB O ;PRINT ROUTINE TEMP 
1315 002266 EXPMSG:: .BLKB 100. ;EXPECTED MESSAGE BUFFER DATA 
1316 002432 RECMSG: : .BLKB 100. ;sRECEIVED MESSAGE y+ — 
1317 002576 TMPBFR: : .BLKB 80. ; TEMPORARY STORAGE FOR P 


RIN 
1318 002716 000000 MESBFA: : .WORDB 0O ;STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 


CZTKGA TK-25 FRT END FUNC @3 
- TEST DATA TABLE 


TSTBLK 


NS 
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;* 


.SBTTL TSTBLK 


- TEST DATA TABLE 


: 
;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 


; 
;IN SEQUENCE THE DATA IS: 
ALL ZEROS 


WALKING ZEROS 
ALTERNATING ONES AND ZEROS 


052525 


;ALL ZEROS 
;ALL ONES 
;DATA FOR WALKING ONES 


;DATA FOR WALKING ZEROS 


;ALTERNATING ONES, ZEROS 


SEQ 39 


;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


B4 
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GLOBAL ENVIRONMENT STORAGE 
th .SBTTL GLOBAL ENVIRONMENT STORAGE 
é 
+h sSTORAGE FOR DEVICE REGISTERS 
: 
1379 003030 000000 100000 000000 DUMMY: 0,100000,0,0 ;OUMMY DEVICE REGISTERS... 
1380 003040 000000 000000 000000 0,0,0,0,0,0,0.v 
1382 
1383 
1384 003060 000000 DUFLG:: . WORD 0 s "DROPPED UNIT” FLAG. 
1385 sINHIBITS CODE IN “CLEAN-UP”. 
4, 003062 000000 NODEV: : . WORD 0 sFLAG TO SAY NO DEVICE. 
1388 003064 000000 TEMP1:: . WORD 0 3SOME TEMP LOCATIONS. 
1389 003066 000000 TEMP: : . WORD 0 
1390 003070 000000 XXCOMM: : . WORD 0 sXxXOP+ COMM BLOCK POINTER. 
1391 003072 000000 FREE:: . WORD 0 31ST FREE MEMORY ADORESS... 
1392 003074 000000 FRESIZ:: . WORD 0 3..-AND SIZE CIN WORDS). 
1393 003076 000000 FREEHI: . WORD 0 sLAST WORD IN FREE SPACE 
1394 003100 000000 KTFLG . WORD 0 sKTi1, MEM AVAIL FLAG - 
1395 3- .WORD 0 = <24K OR NO KT - 
1396 s3- NZ = »>24K AND KT. 
1397 003102 000000 K TENABLE: : . WORD 0 3sSET BY TEST ROUTINES TO FLAG — UNDER TEST 
1398 003104 002000 PSTS2W:: . WORD 2000 a BLOCK ADORESS FOR 32k STAR 
1399 003106 000000 SIFLAG:: . WORD 0 
1400 003110 000000 BADDAT: : . WORD 0 FACTUAL DATA 
1401 003112 000000 AT:: . WORD 0 sEXPECTED DATA 
1402 003114 000000 LOOPFL:: - WORD 0 
1403 003116 CTAB: : s CONFIGURATION TABLES. 
1404 003116 000000 CTABM:: . WORD 0 sCONFIG WORK. 
1405 003120 000000 . WORD 0 
1406 003122 000000 . WORD 0 
1407 003124 000000 .WORD O 
1408 003126 177777 . WORD -1 sEND OF MEM TABLE. 
1409 003130 CTABE:: 
rte sERROR STATISTICS TABLE (1 WORRY PER UNIT), 64 UNITS MAX: 
. 
1412 : 0 ® UNIT NOT TESTED 
1413 ; 1 8 UNIT ONLINE, NO ERRORS 
1414 ’ LOXXXX «= UNIT ONLINE, ENCOUNTERED XxXxx ERRORS 
1415 , 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1416 $ 160001 = UNIT DROPPED, NOT IDOLE AT START 
ole : L4XXXX UNIT OROPPED, ENCOUNTERED XxXxx ERRORS 
° 
1419 0031350 ERTABL : .BLKW 64. 
ory 003330 000000 ERTABE: . WORD 0 


1422 003332 000000 SKIPT: .WORD 0 sl°SKIP SUBTEST O-=NO SKIP OF SUBTEST 


C4 
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SEQ 41 
GLOBAL TEXT MESSAGES 


1424 .SBTTL GLOBAL TEXT MESSAGES 
1425 :* 
1426 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1427 : ae teckle ANDO ASCII INFORMATION THAT ARE USED IN 
1428 ; MORE THAN ONE TEST. 
1429 g-- 
1430 
1431 
1432 
1433 ¢ 
1434 sNAMES OF DEVICES SUPPORTED 
1435 t- 
1436 
1437 003334 DEVTYP <TK-25> 

003334 LSDOVTYP:: 

003334 124 113 055 .ASCIZ /TK-25/7 

.EVEN 
1438 
1439 3° 
eee ;TEST DESCRIPTION 
3 - 

1442 003342 DESCRIPT <CZTKGA TK-25 FRT END FUNC @3> 

003342 LSOESC:: 

003342 103 132 124 a /CZTKGA TK-25 FRT END FUNC @3/7 
1443 
{aaa 3° 
1445 :sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
ies . 
1448 003400 003440 003443 003447 TSSRBIT:: . WORD 18,28,35%,4%,5%8,68,78,8$ 
1449 003420 003501 003505 003511 . WORD 98, 108, 11$,12$, 138, 14$,15%,16$ 
1450 003440 125 103 000 18: -ASCIZ ‘SC’ 
1451 003443 102 111 105 28: -ASCIZ ‘BIE’ 
1452 003447 123 103 105 38: -ASCIZ ‘SCE’ 
1453 003453 122 115 122 48: -ASCIZ ‘RMR’ 
1454 003457 116 130 115 S$: 2 IZ ‘NXM’ 
1455 003463 116 102 101 68: . IZ ‘NBA’ 
1456 003467 102 111 124 78%: . IZ ‘BIT9’ 
1457 003474 102 111 124 88: . IZ ‘BIT8' 
1458 003501 123 125 122 98: -ASCIZ ‘SSR' 
1459 003505 117 106 114 108: -ASCIZ ' ¥ 
1460 003511 102 111 124 118: -ASCIZ ‘BITS’ 
1461 003516 102 111 124 128: -ASCIZ ‘BIT4’ 
1462 003523 102 111 124 138%: -ASCIZ ‘BITS’ 
1463 003530 102 111 124 148; -ASCIZ ‘BIT2’ 
1464 003535 102 111 124 15%: -ASCIZ ‘BIT1’' 
1465 003542 102 111 124 168%: -ASCIZ ‘BITO’ 
1467 003550 124 125 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
1 003603 124 125 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET 
1469 003636 040 040 116 NXR;: -ASCIZ / WNON-EXISTANT DEVICE REGISTER 
1470 003675 045 101 040 NXRX: -ASCIZ /@A ADDRESS: 806/ 
1471 003716 045 101 040 TSSX: ASCII /#A TSBA,TSSR EXP'D: S068A,8068N/ 
1472 003756 045 101 040 -ASCIZ /#A TSBA,TSSR REC'D: 8068A,806/ 
1473 004015 045 116 045 FUSI: ASCII /sNSA/ 
1474 004021 040 040 125 «=6CUST: -ASCIZ 7 UNEXPECTED INTERRUPT 


D4 
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1475 004050 040 040 111 NSI; -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
1476 004115 045 116 045 FNOINTR: ery /ONBA/ 
1477 004117 040 040 116 NOINTR: .ASCIZ NO INTERRUPT 1“ GENERATED/ 
1478 004154 040 040 111 IFAUT: .ASCIZ ; INTERRUPT FAULT/ 


1479 004176 045 101 040 INTX: -ASCIZ /#A CPU PC; TSBA: #06/ 

1480 004235 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DOION’T INITIALIZE CONTROLLER/ 
1481 004505 040 040 O42 NSINIT: .ASCIZ / “SOFT-INIT” OION’'T INITIALIZE THE DOPU/ 
1482 0043555 040 040 042 BRINIT: .ASCIZ / “BUS-RESET” DION’ T INITIALIZE THE DPU/ 


1484 004425 000 NUL : -ASCIZ 7/7 

1485 004426 045 116 OOO NULCR: .ASCIZ /#N/ 

1486 004431 045 101 040 EXPGOT: .ASCIZ /#A EXP’'D: SO68A, REC'D: 806/ 

1487 004465 045 116 045 ExXPGT2: .ASCIZ /sNSA EXP'D: SO68A, SO6GENSA REC'D: SOSA, 806/ 

1488 004541 045 101 040 OUADL2: .ASCIZ /#A REG(CW) WRITTEN TO: SO68A REG(R) READ; EXP’'D: sO68A, REC'D: #806/ 
1489 004643 122 101 115 PKTRAM:: -ASCIZ ‘RAM Contents Do Not Match Vesket Sent’ 

1490 004711 040 040 103 SCME: .ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

1491 004754 127 122 111 WRITMSG: .ASCIZ ‘WRITE CHARACTERISTICS Fei led’ 

1492 005011 124 123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
ghey 005104 124 123 123 RDERR: — ‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
1495 

1496 


E4 
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EQ 43 
GLOBAL ERROR REPORT SECTION a 


1499 .SBTTL GLOBAL ERROR REPORT SECTION 
1501 
S 3* 
1502 : THE GLOBAL ERROR REPORT —-¥~ ao toa THE PRINTB AND PRINTX 
1503 ; CALLS THAT ARE USED IN MORE THAN ONE TEST. 
to ; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
gee 
1506 
1507 005176 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005176 NXRERR: : 
1508 005176 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
005176 013746 003062 MOV NODEV, -( SP) 
005202 012746 003675 MOV @NXRX, -C SP) 
5206 012746 000002 MOV @2,-(SP) 
005212 010600 MOV SP ,RO 
005214 104415 TRAP CSPNTX 
005216 062706 000006 ADD 06, SP 
1509 005222 004737 005250 JSR PC EXTEND ; PRINT EXTENSION IF REQUIRED. 
1510 005226 ENOMSG 
005226 L10002: 
52 104423 TRAP CsmSG 
1511 
1512 
1513 3 
1514 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
tr . TO ANY OF THE ABOVE ERROR SIGNATURES. 
1517 005230 005727 EXTEND: TST (PC )-> 
1518 000000 EXTA: 0 ; O = NO EXTENSION. 
1519 005234 001402 BEQ i$ 
1520 005236 004777 177770 JSR PC ,SEXTA ; APPEND EXTENSION TEXT. 
1521 005242 1%: PRINTX CR ; PRINT A BLANK LINE 
005242 012746 004426 MOV @NULCR, -( SP) 
005246 012746 000001 MOV #1, -(SP) 
005252 010600 MOV SP ,RO 
005254 104415 TRAP CSPNTX 
005256 062706 000004 SP 
1522 005262 000207 RTS Pp 


CZTKGA TK-25 FRT END FUNC @3 
PRITSSR 


- PRINT TSSR CONTENTS 


012746 
0600 


012746 
012746 


000054 


002576 
006314 


F4 
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177777 


3* 


.SBTTL PRITSSR - PRINT TSSR CONTENTS 


: 

sROUTINE TO DISPLAY THE CONTENTS, ANDO BIT DEFINITIONS, OF 
;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
sBY A MESSAGE PRINTING ROUTINE 


; 
; INPUTS: 


Ri 


CONTENTS OF TSSR 


: 
;SUBORDINATE ROUTINES: 
CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 
SA 


5$: 


108: 


11%: 


13%: 
158: 


CHKAMB 


R4, 

—~ reteaipte niin sag 
$ 

@TMPBFR ,R2 

@TSSRBIT,R1 

RS 

15$ 

R3 

13% 

CR1),RO 

CRO)+, CR2)> 

118 

@' ee -1(€R2) 

CR1)-« 

10$ 

-(R2) 

@TSSDEF , @TMPBFR 

OTMPBFR, -( SP) 

@TSSDEF , -( SP) 


;SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
sPRINT THE CONTENTS OF TSSR 


sGET TSSR BACK FOR CHKAMB 
sARE CONTENTS AMBIGUOUS ? 
sBRANCH IF NOT 


NO 
:SHOW CONTENTS ARE AMBIGUOUS 


sCONTENTS OF TSSR 


SEQ 44 


;CLEAR ALL MULTIPLE BIT FIELDS 


NO BITS ARE SET 

; TEMPORARY ASCII BUFFER 
sASCII EQUIVALENT OF BITS 
sREMAINING BITS TO CONVERT 
BRANCH WHEN AL DONE 


: L ARE 
;CLEAR CARRY FOR SHIFT 
;SHIFT NEXT ‘ert TO CARRY 
;BRANCH IF BIT NOT SET 

S POINTER TO BIT DEFINITION 
sMOVE ASCIZ TO BUFFER 
sMOVE ALL BITS 

s INSERT A COMMA TO TERMINATE 
sPOINT TO NEXT DESCRIPTION 
;GET THE REMAINING BITS 

; TERMINATE THE LINE 

;PRINT THE BIT DEFINITIONS 


BAITSSR < PRINT TSoR CONTENTS 


012746 


012737 
013737 


012746 


000002 
000006 


177761 
006404 


006204 
000002 
000006 
177717 


006744 


006245 
000002 


000006 
000031 
176377 


006143 
000002 


000006 
100210 


006032 
002146 


005672 
002146 


005672 
000001 


000004 
005672 


116 
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002170 


002146 


002146 
005644 


002146 


045 


208: 


3108: 
32%: 


EPRT1: 


RTS 
.ASCIZ 


G4 


2, -(€SP) 
SP ,RO 
CSPNTX 


R4,R3S 
@rCTERCLS,RS 
TCOCOOCRS),RS 
@TCOASC RS 


RS, -(SP) 
- 6 -(SP) 
CSPNTX 
» SP 
R4,R3 
@rCFATERR RS 
25% 

R3 

RS 


RS 
TSFCOOCRS),RS 
@TFCASC RS 


R3,-CSP) 
@2, -(SP) 
SPR 

CSPNTX 

#6 ,SP 

25. ,FATFLG 
R4,RS 
@tCHIADOR ,RS 
30% 
@TEXASC RS 
RS, -(SP) 


@TEXASC, -(SP) 
e2, -(SP) 


06 ,SP 
1 cca 
#EPRTS,EPRTSW 
EPRTSW 
3108 
®EPRT1,EPRTSW 
EPRTSW,52%+2 
OEPRT1 
@EPRT1,-CSP) 
41, -(€SP) 

»RO 
CSPNTB 


64 ,SP 
GEPRT1,EPRTSW 
PC 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
;sCLEAR ALL BUT FATAL TERMINATION 
;D0N’'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
;PRINT THE FATAL TERMINATION CODE 


;DROP THIS UNIT AFTER ERROR MESSAGE 
;GET TSSR CONTENTS 

;CLEAR ALL BUT EXTENDED ADDRESS 
;D0N‘'T PRINT IF ZERO 

sPRINT THE EXTENDED ADORESS BITS 


sCHECK FOR MEDIA ERROR 

IF PROBABLY NOT TAPE ERROR 
ABLY MEDIA RELETED ERROR 
sCHECK FOR THE SWITCH EMPTY 
;BR, IF SWITCH IS NOT EMPTY 
;SET SWITCH TO DEFAULT 

sPUT REAL SWITCHABLE MESSAGE IN PLACE 
sPRINT THE ERROR MESSAGE 


sRESET TO NORMAL ERROR POINTER 
;RETURN TO CALLER 


SEQ 45 


- BAD TAPE” 


‘SNSA eeeeeCHECK CABLES BETWEEN CONTROLLER AND TRANSPORT eseecesS' 


Shan TK - 2S FRT_END FUNC @3 
PRITSSR - PRINT TSSR CONTENTS 


005771 
32 


007010 
156 
145 


H4 
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007021 
64 


EPRT2: 
Toonrd 


-ASCIZ 


-ASCIZ 


‘'GNSA eeeeeCHECK TRANSPORTaseeesS’ 
‘GNSA eeeeePOSSIBLE MEDIA RELATED ERROR - BAD TAPEsssesesS’ 
-ASCIZ ‘sNSA TSSR = 806’ 
‘SNBA Extended Address Bits = #06’ 
‘SNSA Termination Cless Code «= sT’ 
-ASCIZ ‘SNSA Fatal Termination Class Code = sT’ 
‘SNSA TSSR Bite Set: sT’ 
‘SNSA TSSR Contents Are Ambiguous’ 


1$,2$,3%,48,5%,6%,7%,8% 

‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Stetus Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
‘'Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatel Controller Error’ 






1$,2$,3%,4$% 

‘Internal Diagnostic Fai lure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 


SEQ 46 


PRIPKT 


CZTKGA TK-25 FRT_END FUNC @5 


14 


MACRO M1200 20-APR-84 08:13 PAGE 36 SEQ 47 


- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


00500 
012402 
010246 


012746 


003102 


007302 
000003 


000010 


020304 


.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


3° 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
;THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


» 
; INPUT: 
. 
; RO NUMBER OF WORDS IN PACKET 
: RE HIGH ORDER COMMAND PACKET ADDRESS 
: R& ADDRESS OF COMMAND PACKET 
* 
; NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
5° 
PRIPKT: : 
SAVREG sSAVE THE REGISTERS 
MOV RO,.RS sSAVE NO. OF WORDS IN PACKET 
TST K TENABLE sABOVE 28K UNDER TEST? 
BNE O$ ;8R IF YES 
CLR R3 ;SET HIGH ORDER ADDRESS TO O 
10%: MOV R3,R1 sCOPY HIGH ORDER ADDRESS 
MOV R4,RO ;GET LOWER ADORESS 
ROL ;SHIFT BIT 15 INTO C BIT 
ROL ;AND INTO HIGH ORDER 
PRINTS OPKT ~R1,R4 sPRINT PACKET ADDRESS 
MOV -C ) 
MOV R1,-CSP) 
MOV @PKTADD, -C SP) 
MOV @3,-(SP) 
MOV »RO 
TRAP CSPNTB 
ADD #10,SP 
15$: MOV R3,RO ;GET HIGH ORDER ADDRESS 
BEG $ ;BR IF NOT ABOVE 28K 
MOV R1 sGET LOW ORDER ADDRESS 
JSR PC ,SETMAP ;sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
MOV 0,R4 ;GET RETURNED PAR6 ADDRESS BIAS 
20%: CLR 1 ;SAVE WORD NUMBER 
253: MOV CR4)+,R2 ;GET PACKET oe 
PRINTS @PKTFRM,R1,R2 ;sPRINT THE DAT 
MOV R2,-CSP 
MOV R1,-CSP) 
MOV OPKTFRM, -( SP) 
MOV SP RO 
TRAP CsPNTB 
ADD @10,SP 
INC i ;sNEXT WORD NUMBER 
CMP R1,R5 ;DONE ALL PACKET WORDS? 
BLT 25% ;LOOP TILL ALL DONE 
PRINTB OPKTNEW ;JUST A COUPLE NEW LINES 
MOV OPK TNEW, -CSP) 
MOV P,RO 
TRAP CSPNTB 
ADD 04 ,SP 


J4 


—. TK-25 FRT END FUNC @3 MACRO M1200 20-APR- 7? 08:13 PAGE 36-1 SEQ 48 
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
nH 007242 000207 RTS PC ;RETURN 
1666 007244 045 116 045 PKTFRM: .ASCIZ ‘SNSA Packet Word @SDISA = 806’ 
rot 007302 045 116 045 PKTADD: .ASCIZ ‘SNSA Packet Address = #01805’ 
1669 007337 045 116 045 PKTNEW: .ASCIZ ‘sNSNSA 
1670 .EVEN 


TKGA_TK- 


IBXOR 


S_ FRT_END 


ba 


177400 


007432 
000004 
000012 


116 


K4 


MACRO .we 20-APR-84 08:15 PAGE 37 


YTE 


3* 


; 
;PRINT EXPECTED DATA, RECEIVED DATA, 


.SBTTL 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; 
; INPUTS: 


R1 
Re 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


Re, RS sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO ;sBYTE MASK 

RO,R1 ;SAVE 1.OW BYTE RECV 
RO,R2 ;SAVE LOW BYTE EXPD 
RO,.R ;SAVE LOW BYTE XOR 


3 
@XORBFOR,R2,R1, RS sPRINT THE MESSAGE 


;RO HAS XOR ON RETURN 
;RETURN TO CALLER 


-ASCIZ 


‘agNSA EXPD: #O038A RECV: SO38A XOR: 


AND XOR OF THE DATA BYTE 


#03’ 


SEQ 49 


L4 


BE IKGA KBR Ny ERB. Re EV AND xpRcre M1200 20-APR-84 08:15 PAGE 58 


. SBTTL 


3 * 


PRIXOR - PRINT EXPD, RECV AND XOR 


; 
;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR 


OF THE TWO 
;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; 

; INPUTS: 

; 

: R1 

3 Re 

° 

;OUTPUT 

é 

; RO 

; 

;* 

PRIXOR:: 

VREG 
Vv 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV 
RTS 


045 XORFOR: .ASCIZ 


EVEN 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


;SAVE THE REGISTERS 
~e sEXPECTED DATA 
R1,R3 sFORM THE EXCLUSIVE OR 
@XORFOR R2.R1. RB ;PRINT THE MESSAGE 


R3,RO sRO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


‘sNSA EXPD: SO6S8A RECV: SO68A XOR: 806° 


SEQ@ 50 


007616 
007616 
007622 


BATEGU '"“BRINT BIT NUMBERS 


000207 


007654 


116 


MACRO M1200 


045 


AS ASCII EQUIVALEN 


3* 


M4 


-APR-84 08:15 PAGE 39 


. SBTTL 


PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


: 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
_— ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


: S INPUTS: 


* 


. SBTTL 


OCTAL VALUE TO CONVERT 
TABLE OF POINTERS TO ASCII EQUIVALENT 


;SAVE THE REGISTERS 
PC ;RETURN TO CALLER 


PRIRAM - PRINT RAM ADDRESS 


;PRINT CONTROLLER RAM ADDRESS. 
_ ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


VINPUTS: 


RAMFOR: 


3;¢ 


R4 


ADD 
RTS 
-ASCIZ 
EVEN 


. SBTTL 


: 
;PRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


RAM ADDRESS 
;SAVE R1-RS UNTIL NEXT RETURN 


;PRINT RAM ADORESS IN ERROR 


;RETURN 
‘sNsA CONTROLLER RAM ADDRESS = #806’ 


PRIADD - PRINT MEMORY ERROR ADDRESS 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ACORESS 


SEQ 51 


BAIABD |< PRI 


1825 
1824 
1825 
1826 
1827 
1828 
1829 


010102 


FRT E 
NT ME 


013700 
013701 
010102 
006101 
006100 


010246 


002202 
002204 


007766 
000003 


000010 


116 


002202 
002204 
010102 
000003 


000010 


116 


: 
i 
PRIADD: 


045 PRIAO: 


3;* 


F 03 MACRO M1200 20-APR-84 08:13 PAGE 39- 
NORY ERROR ADDRESS . 


.ASCIZ 
EVEN 


.SBTTL 


N4 


SEQ S2 


sSAVE R1-RS UNTIL NEXT RETURN 
ADORESSS 


ERRHI,RO ;GET HIGH 

ERRLO,R1 ;GET LOW ADDRESS 

R1,Re2 ;COPY LOW ADDRESS 

Ri ;SHIFT BIT 15 TO C BIT 
RO ;SHIFT INTO HIGH ORDER 
OPRIAO,RO,R2 ;PRINT MEMORY ADORESS IN ERROR 
Re, -(SP) 

RO, -(SP) 

@PRIAO, -( SP) 

@3, -( 

SP ,RO 

CSPNTB 

#10,SP 

PC ;RE TURN 


‘SNSA MEMORY ERROR ADDRESS = #01805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


: 
;PRINT MEMORY ADDRESS 
;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


: 
: 
; 
: 
; 
i 
PRITADD: 


045 PRITO: 


ERRHI 
ERRLO 


SAVREG 
V 


.ASCIZ 
EVEN 


; 
IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


;SAVE R1-RS UNTIL NEXT RETURN 
ADORESSS 


ERRHI,RO ;GET HIGH 
ERRLO,R1 ;GET LOW ADORESS 
R1,R2 ;COPY LOW ADDRESS 


R1 ;sSHIFT BIT 15 TOC BIT 

;SHIFT INTO HIGH ORDER 

;PRINT MEMORY ADDRESS IN ERROR 
Re, -CSP) 


PC ;RETURN 
‘sNSA MEMORY TEST ADDRESS = #801805’ 


010252 


E 
RECORD 


0127537 
012737 
005703 


012727 
000000 
013727 
000000 


005367 
001375 


SYCFORWARD A 


000764 010540 
140010 010550 


010352 


100000 
0103352 
000400 


010350 
177776 
017134 
000250 
002116 
177772 


MACRO M1200 


BS 


20-APR-84 06:15 PAGE 40 


AND REVERSE) COMMAND 


0103350 


.SBTTL SPACE 


% 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


; ROUT INE TO ISSUE A SPACE a 


weer CFORWARD OR REVE 
V INPUT: 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


SPACE 
SAVREG 
MOV #500. ,. SDELAY 
MOV #140010, 808 
TST RS 
BMI 5$ 
MOV we — 
BR 
5%: BIC eeIT1S, LB} 
MOV R3,908 
BIS eBITs, 8038 
108: MOV $,R4 
MOV ~y r08¢RS) 
ecs 30% 
DELAY 250 
MOV €250,(PC)> 
-WORD O 
MOV LSOLy,.¢PC de 
-WORDB O 
DEC -6(PC) 
BNE © 4 


RS NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
BIT15 = O IS FORWARD 
BITiS = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 
CARRY SET - SPACE RECORDS COMMAND 
CLR - SPACE RECORDS FAILED 
RO THE CONTENTS OF R4 IS MOVED TO RO 


sSAVE THE — REGISTERS 


COMMAND , SPACE FORWARD 

sCHECK FOR OIRECTION 
:BR, IF REVERSE INDICATED 
sLOAD UP NUMBER OF RECORDS TO SPACE 
sGO 00 COMMAND 
sCLEAR DIRECTION BIT 
sLOAD UP NUMBER OF RECORDS TO SPACE 
1SET REVERSE BIT IN COMMAND PACKET 
sSET UP R4 WITH PACKET ADORESS 

OUT COMMAND 


3 SEND 

SWAIT FOR SSR 

;6R, IF SSR IS SET AND OK 
;DELAY ABOUT .25 SECONDS 


SEQ 55 


005367 
367 


177756 
010340 


000000 
000200 


208: 
258: 


408%: 


60$: 
708: 


C5 


GIEE* ™-SBQEBTRERBRBLNGr Bluanol AGB °RE BERGE 7ROARRB* O88 PAGE 40-1 


-22(PC) 


60% 
TSSRCRS),R1 
@SSR ,R2 


R2,R1 
403 
60% 


70% 


R4,RO 
PC 


SEQ 54 


;BUMP DELAY oo DOWN 
38R, IF MORE DELA 
;8R IF TROUBLE CARRY = CLEAR 
;READ TSSR 
;SET UP EXPECTED 

THEY OK 


J ta NO TROUBLE 
iCARRY CLEAR = ERROR 


sPASS PACKET ADDRESS 
sRE TURN 


DS 


GBIEE* "SEB AELBREWEr Blane" MRBAEVERR °8GARRB® O18. PACE 4 seo 35 
1897 : 
1898 ; 
1899 : 
Sot ;PACKET FOR SPACE COMMAND 
> 
1903 010322 .BLKB 10-<., -TUV2AE7> 
1905 : 
1906 COMMAND WORD 
1907 010330 000000 808: | .WORD 
1908 s;NUMBER OF RECORDS TO BE SPACED OVER WORD 


1909 010332 000000 908; . WORD 

1910 010334 000000 ° 

1911 010336 000000 . WORD 

teas 010340 000000 SDELAY: _~—- 0 sDELAY COUNTER 
S EV 


a 


CZTKGA TK-25 FRT END FUNC 63 MACRO M1200 20-APR-84 08:13 PAGE 42 SEQ 56 
WRICHR - WRITE CHARACTERISTICS COMMAND 
dey .SBTTL WRICHR - WRITE CHARACTERISTICS COMMAND 
1916 
1917 3° 
1918 : 
1919 sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
Paty ;COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
; 
1922 3; INPUT: 
1923 : 
1924 : A4 ADDRESS OF PACKET FROM TEST 
1925 : RS FIRST DEVICE UNIBUS ADDRESS 
soot : REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
192 : 
1928 sOUTPUT: 
1929 ; 
1930 ; RO TSSR CONTENTS 
1931 3 CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
pee 3 CLR - WRITE CHARACTERISTICS FAILED 
1 ; 
de sIMPLICIT OUTPUT: 
. 3 
1936 ; MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
1937 : SOFTWARE SWITCHES SET AS FOLLOWS: 
1938 3 BENBSW = BUFFER ENABLE SWITCH ON OR OFF 
1939 : 
1940 ; 
1941 ;SIDE EFFECTS: 
1942 3 
1943 ; 
1944 ;- 
1945 
1946 010342 WRICHR: : 
1947 010342 SAVREG sSAVE THE GENERAL REGISTERS 
1948 010346 005037 002174 CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 
1949 010352 010465 177776 108: MOV R4, TSOBCRS) 3;SEND OUT COMMAND 
1950 010356 004737 017252 JSR PC ,.CHKTSSR sWAIT FOR SSR 
1951 010362 103401 BcsS 20% ;8R, IF SSR IS SET AND OK 
1952 010364 000423 BR 608 ;8R IF TROUBLE CARRY = CLEAR 
1953 010366 016501 000000 208: MOV TSSRCRS),R1I sREAD TSSR 
1954 010372 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
1955S 010376 032701 000100 BIT OOFL .R1 sWAS OFF LINE SET IN TSSR 
1956 010402 001402 BEQ 25% ;8R, IF NO OFL SET 
1957 010404 052702 000100 BIS eOFL ,R2 sMAKE THEM LOOK ALIKE 
010410 020201 25%: CMP R2,R1 ;ARE THEY OK 
1959 010412 001401 BEQ 40% ;8R, IF EQUAL = OK 
1960 010414 000407 BR 60% s TROUBLE EXIT 
1961 010416 062704 000010 40%: ADO 08. ,.R4 sPOINT TO WRT CHARA DATA PACKET 
1962 010422 011403 MOV (R4),R3 3GET ADDRESS OF MESSAGE BUFFER 
1963 010424 010337 002716 MOV R3, MESBFA sSTORE FOR PRINT ROUTINES 
1964 010430 000261 SEC 3SET CARRY NO TROUBLE 
1965 010432 000401 BR 70% sEXIT 
1966 010434 000241 60%: CLC ;CARRY CLEAR = ERROR 
1967 010436 016500 000000 708: MOV TSSRCRS),RO ;sRETURN TSSR CONTENTS 
pers 010442 000207 RTS PC ;RETURN 


x. 


CZTKGA TK-25 FRT ND oe MACRO M1200 20-APR-84 08:13 PAGE 43 SEQ 57 
REWIND - POSITION TAPE (RE WIND) COMMAND 
4k .SBTTL REWIND - POSITION TAPE CREWIND) COMMAND 
19 
1974 3¢ 
Dak ;THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
1976 ; 
1977 : CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1978 3 TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
1979 3 SSR TO SET IN THE TSSR 
1980 ; 
1981 ; 
1982 ;CALLING SEQUENCE: 
1983 ; 
1984 3 DO A SOFT INIT 
1985 ; DO A WRITE CHARACTERISTICS 
1986 : JSR PC ,REWIND 
1987 : 
1988 3; INPUT: . 
1989 ; 
1990 3 RS FIRST DEVICE UNIBUS ADDRESS 
1991 ; 
1992 ; 
1993 3; OUTPUT 
1994 3 
fone 3 RO THE CONTENTS OF R4 IS PASSED TO RO 
1 g° 
1997 010444 REWIND: : 
1998 010444 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
1999 010450 012704 010540 MOV @RWPACK ,R4 ;GET PACKET ADORESS 
2000 010454 010465 177776 MOV aa TSDBCRS) 3SEND PACKET ADDRESS TO EXECUTE 
2001 010460 012703 000550 MOV 3 sENOUGH TIME FOR 2400' REEL TO REWIND 
2002 010464 004737 017134 10$ JSR PC. WAITF ;WAIT FOR SSR TO SET 
2003 010470 103417 ecs 20% sLEAVE WHEN SSR IS SET 
2004 010472 DELAY 250. sWAIT FOR .25 SECONDS 
010472 012727 000372 MOV #250. ,.CPC)-+ 
010476 000000 . WORD 0 
010500 013727 002116 MOV LSOLY,CPC)> 
010504 . WORD 0 
010506 005367 177772 DEC -6(PC) 
010512 001375 BNE -4 
010514 005367 177756 DEC -22(PC) 
010520 001367 BNE .-20 
2005 010522 005303 DEC RS ;BUMP COUNTER DOWN 
2006 010524 001357 BNE 10$ sKEEP GOING 
2007 010526 00024) CLC ;CLEAR CARRY TO SET ERROR 
2008 010530 010400 20%: MOV R4,RO sPASS THE PACKET ADDRESS 
2009 010532 000207 RTS PC ;RETURN 
2011 010534 .BLKB 10-<, -TUV2AE7> 
2013 010540 RWPACK 
2014 010540 102010 . WORD 102010 sPOSTION COMMAND (REWIND) 
2015 010542 000000 . WORD 0 sNOT USED 


GS 


oo TK-25 FRT ENO FUNC 95 MACRO M1200 20-APR-84 08:13 PAGE 44 
CKRAM - COMPARE RAM TO I/0 PACKET 


SEQ 586 


2017 .SBTTL CKRAM ~- COMPARE RAM TO I/0 PACKET 
2018 
2019 3° 
2020 ; 
2021 ;ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
2022 sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
é 
2024 ; INPUT: 
2025 : 
2026 ; R4 ADDRESS OF THE COMMAND PACKET 
2027 ; RS FIRST DEVICE UNIBUS ADDRESS 
2028 
20 ; OUTPUT : 
2030 ; 
2031 ; CARRY SET - RAM MATCHES PACKET 
o08e ; CLR - RAM DOES NOT MATCH PACKET 
3 
ae ;IMPLICIT OUTPUT: 
: 
2036 ; THE TABLE RAMDATA IS FILLED WITH THE 
2037 ; DATA HELD IN R 
2058 : RAMSIZ IS SET TO” 8. FOR PRAMPKT ROUTINE 
é 
2040 ;SIDE EFFECTS: 
2041 ; 
2042 ; 
2043 3° 
2044 
2045 010544 CKRAM: : 
2046 010544 SAVREG ;SAVE THE GENERAL REGISTERS 
2047 010550 012701 002206 V @RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 
2048 010554 012702 000020 MOV ORMPKTBEG ,R2 sBYTE ADORESS OF FIRST RAM DATA 
2049 010560 005003 CLR R3 ;CLEAR THE ERROR FLAG 
2050 010562 004737 017252 JSR PC,CHKTSSR ;WAIT FOR 
2051 010566 004737 017252 10$: JSR PC .CHKTSSR sWAIT FOR SSR TO SET 
010572 110265 177777 MOVB R2,TSDBH(RS) sSELECT NEXT RAM ADDRESS 
2053 010576 004737 017252 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
010602 116511 177776 MOVB  TSBALC(RS).(R1) READ THE RAM DATA 
2055 010606 122124 CMHPB ss (R}1)+, (R4)> ;COMPARE TO EXPECTED 
010610 001401 BEQ 208 sBRANCH IF OK 
2057 010612 INC 3 :SET ERROR FLAG 
010614 208: INC sADDRESS OF NEXT RAM LOCATION 
2059 010616 020227 000027 CMP R2, @RMPK TEND sREACHED END YET ? 
010622 003761 BLE $ ;BRANCH TILL ALL READ 
2061 010624 005703 TST R3 :WAS AN ERROR F ? 
2062 010626 001402 BEQ 30$ :BRANCH IF NOT 
2063 010630 000241 cLC ;CLEAR CARRY TO SHOW ERROR 
2064 010632 000401 BR 50% ;AND EXIT 
2065 010634 000261 308: SEC sSHOW GOOD COMPARE 
010636 012737 000010 002246 50+: MOV 08. ,RAMSIZ SSETUP RAMSIZ FOR PRAMPKT ROUTINE 
2067 010644 000207 RTS PC ; RETURN 


RAneR - "Re 


2113 


H5 


DMN as oe ee 


.SBTTL RAMER - READ AND DISPLAY SELECTED RAM 


0 
011024 


077316 


011105 
000002 


000006 


;¢ 


: 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


‘ 
; INPUT: 
+ 
; RS FIRST DEVICE UNIBUS ADDRESS 
; CONSOLE WILL ALSO BE PRINTED TO 
é 
s IMPLICIT OUTPUT: 
3 
; THE TABLE aay tly IS FILLED WITH THE 
; DATA HELD IN R 
é 
;SIDE EFFECTS: 
a 
© 
3° 
RAMER: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RAMRSH,RS sRESET RS TO FIRST DEVICE REGISTER 
MOV @RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 
MOV RAMHLD ,.R2 ;sBYTE ADORESS OF THE FIRST RAM DATA 
MOV RAMSIZ,RS ;SET THE SIZE OF THE READ UP 
108: JSR PC ,.CHKTSSR sWAIT FOR THE SSR TO SET 
MOVB R2, TSOBHCRS ) sSELECT NEXT RAM ADORE 
JSR CHKTSSR sWAIT FOR SSR TO SET 
MOVB TSBALCRS),CR1)+ ;READ THE RAM DATA 
20%: ADO #1,R2 sADDRESS OF THE NEXT RAM LOCATION 
S08 R3,108 sNUMBER OF LOCATIONS COUNTER 
MOV RAMSIZ,R4 3GET THE RAM SIZE 
MOV RAMHLD ,R2 sGET THE STARTING RAM ADORESS 
ADD R2,R4 ;CALCULATE THE END ADDRESS 
UB #1,R4 sCORRECT VALUE OF PRINTOUT 
PRINTX @RAMIOP ,R2,R4 sRAM ADDRESS = 10 - 17, ETC. 
MOV R4,-CSP) 
MOV R2,-CSP) 
MOV @RAMIOP , -C SP) 
MOV @3,-CSP) 
MOV SP RO 
TRAP CSPNTX 
ADO #10,SP 
MOV @RAMDATA,R1 sADORESS OF WHERE RAM DATA IS 
MOV RAMSIZ,.RS sTHE SIZE OF THE RAM FIELD READ 
30%: CLR R4 sNO EXTRA DATA LEFT OVER 
MOVB CR1)+,R4 sPICK UP BYTE OF RAM DATA 
BIC 177400 ,R4 ;GET RIO OF SIGN EXTEND 
PRINTX @RAMPD,R4 :"010 211 111 222 377 000 123 134 ETC.” 
MOV R4,-C(SP) 
MOV @RAMPD, -( SP) 
MOV »RO 
TRAP CSPNTX 
ADD 06, SP 
SOB R3,50$% ;LOOP UNTIL ALL PRINTED 


SEQ 59 


IS 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 45-1 
RAMER - READ AND DISPLAY SELECTED RAM 


esas 011026 000207 50$: RTS PC s;RE TURN 

2116 011030 000000 RAMHLD: .WORD 0 AM ADOR HOLDER 1ST ADDRESS 
2117 011032 000000 RAMRSH: .WORD O HOLDS RS FOR LATER 

2118 011034 045 116 045 RAMIOP: .ASCIZ ‘SNA Ram Address (Octal) = SO38A - SO3SN’ 
eth 011105 045 101 040 RAMPD: . wy ‘SA SOSHA 


SEQ 60 


ERR 


TKGA TK - 25 FRT END 
RAM? 


COMPARE RAM 


011220 


012701 
012702 


017252 
177776 


000010 
000176 


YO 170 CHARACTERISTIC 


002246 


cs Bata 


3;* 


. SBTTL 


JS 


-64 06:15 PAGE 46 


CKRAM2] 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


t 
sROUTINE TO READ THE FIRST 6 OR 10 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


: 
; INPUT: 


10$: 


20%: 


27%: 


30%: 
50$: 


SIDE EFFECTS: 


ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


; IMPLICIT OUTPUT: 
THE TABLE ho IS FILLED WITH THE 


DATA HELD IN R 
RAMSIZ IS SET 10 8. OR 10. FOR PRAMPKT ROUTINE 


TSBAL(RS),(R1) 
(R1)+,(R4)> 
20% 


sSAVE THE GENERAL REGISTER” 

; ADDRESS TO SAVE THE RAM 0 \T 
;BYTE ADDRESS OF FIRST RAM DATA 
;CLEAR THE ERROR FLAG 

s;WAIT FOR SSR 

sWAIT FOR SSR TO SET 

;SELECT NEXT RAM ADDRESS 

sWAIT FOR SSR TO SET 

;sREAD THE RAM DATA 

3 COMPARE + 


NOT 
;CLEAR CARRY TO SHOW ERROR 
;AND EXIT 
;SHOW GOOD COMPARE 
;RE TURN 


SEG 61 


KS 


CZTKGA K- 25 FRT — FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 47 SEG 62 
CKMSG COMPARE WRITE CHAR. MESSAGE BUFFERS 

oS .SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
21 ;¢ 
2176 ; 
2177 sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
2178 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
2179 ;ERROR PRINT ROUTINES. 
2180 : 
2181 3; INPUT: 
2182 ; 
21835 3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2184 ; Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2185 3 Re EXPD MESSAGE BUFFER ADDRESS 
2186 ;OUTPUT: 
2187 3 
2188 ; CARRY SET - MESSAGE BUFFERS MATCH 
tpt : CLR -MESSAGE BUFFERS DON’T MATCH 

1 ; 
th: : IMPLICIT OUTPUT: 

; 

2193 ; EXPMSG BUFFER IS SET TO EXPD DATA 
2194 : RECMSG BUFFER IS SET TO RECV DATA 
2195 3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
cree ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 

1 ; 
2198 3° 
2199 011222 . CKMSG: : 
2200 011222 ay SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2201 011226 010037 002250 MOV RO, RCVHIADD sSAVE RECV HIGH ADDRESS 
2202 011232 010137 002252 MOV R1,RCVLOAD s;SAVE RECV LOW ADDRESS 
2203 011236 005737 003102 TST K TENABLE sTESTING ABOVE 28K? 
2204 011242 001403 BEQ 10$ ;8R IF NO 
2205 011244 004737 020304 JSR PC , SETMAP sRETURN ADDRESS BIASED TO PARG6 IN RO 
2206 011250 010001 MOV RO,R1 iGET RETURNED ADORESS BIASED TO PARG6 
2207 011252 005004 10$: CLR RS ;WORD IN BUFFER 
2208 011254 005003 CLR RS ;CLEAR ERROR SEEN FLAG 
2209 011256 010205 MOV R2,R5 ;GET EXPD BUFFER ADDRESS 
2210 011260 011264 002266 158: MOV CRO), EXPMSG(R4 ) : SAVE EXPD FOR ERROR REPORT 
2211 011264 011164 002432 MOV CR1),RECMSGC(R4) ;SAVE RECV FOR ERROR REPORT 
2212 011270 022221 CMP CR2)¢,CR1)D+ sEXPD EQUAL RECV? 
2213 011272 001401 BEQ 25% ;B8R IF YES 
2214 011274 005203 INC R3 3;SET ERROR SEEN FLAG 
2215 011276 062704 000002 25%: ADD @2,R4 sPOINT TO NEXT WORD ADDRESS 
2216 011302 020427 000014 CMP R4,014 s;D0NE FIRST 7 WORDS? 
2217 011306 003764 BLE 15$ ;B8R IF NO 
2218 011310 032765 000200 000012 BIT @x2.EXTF, XST2(R5);1S EXTENDED FEATURES SET IN EXPD? 
2219 011316 001403 BEQ 50$ ;BR 
2220 011320 020427 000016 CMP R4,016 1DONE EXTENDED FEATURES WORD? 
2221 011324 003755 BLE 15$ R IF 
2222 011326 005703 50$: TST R3 S ANY ERRORS SEEN? 
2223 011330 001402 BEG 55$ ;8R IF NO 
2224 911332 000241 CLC ;SET FAILURE 
2225 011334 000401 BR 60% ; 
2226 011336 000261 55%: SEC ;SET SUCCESS 
2227 011340 000207 60$: RTS PC ;RETURN 


Gxnsce |= COep 


011462 


RT END F 
ARE EXPD 


iw 


Cv V MESSAGE BUFFERS retains aps 


000144 
000144 


011474 
000001 


.SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


ee . 


; 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


; 

; INPUT: 
RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
R2 EXPD MESSAGE BUFFER ADDRESS 
RS NUMBER OF BYTES TO COMPARE 

OUTPUT: 
CARRY SET - MESSAGE BUFFERS MATCH 


CLR - MESSAGE BUFFERS DON’T MATCH 
IMPLICIT OUTPUT: 


Chee ee of oe oe os oe GF oe oe GF oe Ge GF GF Ge oe OF oF 


EXPMSG BUFFER IS SET TO EXPD DATA 
RECMSG BUFFER IS SET TO RECV DATA 
RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
K $3 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG- EXPMSG; 88D IS COUNT ABOVE MAX ALLOWED? 
BLE S$ 3880 BR IF NO 
MOV @RECMSG -EXPMSG, R3; 880 
PRINTF @DEBUGMSG ;880 
"] @DEBUGMSG, -( SP) 
MOV 1 ° -(SP) 
"] SP, 
TRAP CSPNTF 
ADD 04 ,SP 
5$: MOV RO,RCVHIADD s;SAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10$ ;8R IF NO 
JSR PC ,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MO RO,R1 ;GET RETURNED ADDRESS BIASED TO PARE 
10$: CLR R4 sWORD IN BUFFER 
CLR RS sCLEAR ERROR SEEN FLAG 
15$ MOVB (R2),EXPMSG(R4) ; SAVE EXPD FOR ERROR REPORT 
MOVB C(R1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 
CMPB CR2)+,CR1)+ sEXPD EQUAL RECV? 
BEQ 25% ;8R IF YES 
INC RS ;SET ERROR SEEN FLAG 
25% ADD @1,R4 sPOINT TO NEXT BYTE 
CMP R4,RS5 ;D0NE ALL BYTES? 
BGE 50$ ;8R IF YES 
BR 15$ 300 NEXT BYTE 
50% TST RS 


;ANY ERRORS SEEN? 
BEQ 55% ;BR IF NO 


SEQ 63 


Ruste |= COMPARE EXPD 


011464 
011466 
011470 
011472 


011474 


MS 


MACRO M 20-APR-84 08:13 PAGE 48-1 SEQ 64 
CV MESSAGE BUFFERS 
CLC ;SET FAILURE 
BR 60% ; 
55% SEC ;SET SUCCESS 
60$ RTS PC ;RET 
122 117 DEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;a8aD 
116 045 FERCM: .ASCII /SNSA «00/ 
040 124 ERCM: ASCIZ / TSSR ERROR CODE REC'D = / 
056 056 SIMSG: ASCIZ /.... AFTER DOING SOFT INIT/ 
105 123 TINERR: .ASCIZ /TEST: ...7 


ZTKGA TK - 2S FRT END FUNC 05 
KMSG2 COMPARE EXPD RECV MESSAGE 


011676 
011676 
011676 
011702 
011706 
011706 
011706 


011710 


004737 


004737 020170 


104423 


005264 


005264 


000004 
007076 
002716 


014072 


MACR 


NS 


M1200 20-APR-84 06:15 PAGE 49 
UFFERS 


3° 
‘ 
;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


3 

; INPUT: 

; 

: Ri CONTENTS OF TSSR AT ERROR 

3 

;SIDE EFFECTS: 

; 

; EXECUTES DROP UNIT TO CEASE TESTING 

3 

3° 
BGNMSG SFIMSG 

SFIMSG:: 
JSR PC ,PRITSSR ;sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKDROP ;DROP UNIT, IF ALLOWED 
ENOMSG 

L10003: 


TRAP C$MSG 


3; * 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 


;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 

; 

; INPUTS: 

a 

3 Ri TSSR CONTENTS 

3 R4 ADDRESS OF COMMAND PACKET 

; 

3 = 
BGNMSG PKTSSR 

PKTSSR:: 
JSR PC ,PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV 04 ,RO ;NO. OF WORDS IN PACKET 
JSR PC ,PRIPKT ‘PRINT THE CONTENTS OF COMMAND PACKET 
MOV MESBFA,RO ;ADDRESS OF MESSAGE BUFFER 
CLR Ri ; ASSUME NO HIGH MEMORY 
JSR PC ,PRMESS ;PRINT THE MESSAGE BUFFER ALSO 
ENOMSG 

L10004 : 
TRAP C$MSG 


3+ 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A GET STATUS COMMAND PACKET. 


; 
; INPUTS: 


; R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


SE@ 65 


B6 


CZTKGA TK - 25 FRT END FUNC @5 MACRO M1200 20-APR-84 06:13 PAGE 49-1 SEG #56 
CKMSG2 COMPARE EXPD RECV MESSAGE BUFFERS 

2345 
2346 011740 PKTGETS 

011740 PKTGETS:: 
2347 011740 004737 005264 PC .PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2348 011744 012700 000002 MOV @2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
2349 011750 004737 007076 JSR PC ,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
2350 011754 ENOMSG 

011754 L10005: 

011754 104425 TRAP CsmsG 
2351 
2352 
2353 3° 
bee sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
2355 : 
2356 s INPUTS: 
2357 ; 
2358 : Ri TSSR CONTENTS 
2359 : R4 ADDRESS OF COMMAND PACKET 
2360 :- 
2361 
2362 011756 SFFMSG 

O11 SFFMSG:: 
2363 011756 004737 005264 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2364 011762 ENOMSG 

011762 L 10006: 

011762 104425 TRAP CsmSG 
2365 
2566 
2367 .SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
2368 3° 
2369 3 
2370 sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
eases ;BUFFER FOR ERROR REPORTS 

: 
2373 s INPUTS: 
2374 ; 
2375 : Ri CONTENTS OF TSSR 
2376 : R2 LOW ORDER MESSAGE BUFFER 
2377 r R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
cree $ NOTE: RS IS IGNORED IF KTENABLE FLAG IS CLEAR 
i 

2380 011764 BGNMSG PKTMES 

011764 PKTMES:: 
2381 011764 004737 005264 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR 
2 011770 010200 MOV R2,RO eG ORDER ADORESS 
2383 011772 010301 MOV R3,R1 HIGH ORDER ADORESS 
2384 011774 004737 014072 JSR PC .PRMESS SPRINT THE MESSAGE BUFFER 
2385 012000 ENOMSG 

012000 L 10007: 

012000 104423 TRAP C8MSG 


004737 
016501 
004737 


104425 


012700 


004737 015436 


RBOSER “BRING TEM? AbDRE Le ano 


010032 
000000 


005264 


000007 


C6 


maAckg M1200 20-APR-84 06:15 PAGE 50 


.SBTTL ADOSSR - PRINT TEST ADDRESS AND TSSR 


;PRINT ROUTINE TO PRINT THE CONTENTS OF 
/oe AND A MEMORY TEST ADDRESS 


V INPUTS: 
i 
: BS FIRST DEVICE UNIBUS ADDRESS 
$ ERRHI HIGH ORDER MEMORY TEST ADORESS 
: ERRLO LOW ORDER MEMORY TEST ADDRESS 
g- 
BGNMSG ADOSSR 
ADOSSR: : 


"” JSR PC ,PRITADO 
MOV TSSR(RS),.R1 
JSR PC ,PRITSSR 


sPRINT MEMORY TEST ADORESS 
sGET CURRENT TSSR 
sPRINT THE CONTENTS OF TSSR REGISTER 


CsmMSG 


.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


3° 
i 

sPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
3 

sIMPLICIT INPUTS: 


3 EXPMSG - EXPECTED MESSAGE BUFFER 
$ RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE SUFFER LOW ORDER ADDRESS 
3° 
BGNMSG MSGEXP 
MSGE XP: : 
MOV @7,R0 ;ASSUS NO EXT FEATURES 
5%: JSR PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 


L10011: 
TRAP C$MSG 


SEQ 67 


2440 


012153 


010146 
012746 
012746 
010600 
104415 
062706 


012746 


012104 
000002 


000006 


012155 
000001 


116 
116 


3° 


. SBTTL 


D6 


EZIKGA TK -BS FBTREND EWNSaBA) palfACRO M1200 20-APR-84 08:13 PAGE 51 


FIFEXP - PRINT FIFO EXP/RECV DATA 


5 
sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


Ri 


- BYTE COUNT 


4 
sIMPLICIT INPUTS: 


8 
FIFEXP:;: 
Pe 


L1001e: ; 


045 FIFIMSG: 
045 FIFOMSG: 


EXPMSG 
RECMSG 


-EVEN 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER CCONTAINS FIFO DATA ONLY) 


FIFEXP 
Aah tea sPRINT BYTES TRANSFERRED - 
@2, -(SP) 
SP RO 
CSPNTX 
#6 , SP 
oF IF OMSG sPRINT HEADER MSG 
oF IF OMSG, -(SP) 
#1, -(SP) 
SP ,RO 
CSPNTX 
» SP 
R1,RO ;GET BYTE COUNT 
PC ,PRBYTEXP SPRINT FIFO BYTES IN ERROR 
CsMSG 
-ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED * #02’ 
-ASCIZ ‘sSNA FIFO DATA BYTES IN ERROR: 


SEQ 68 


24 
2497 


012212 
012212 


012254 


012726 


012701 


104425 


CZTKGA TK-25 FRT END FUNC 63 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012254 


116 


E6 


MACRO M1200 20-APR-84 08:13 PAGE S2 


012425 
045 


~SBTTL MSCSTAT 
3¢ 


: 
sPRINT ROUTINE TO PRINT 
: 


a 
sIMPLICIT INPUTS: 


- PRINT STATUS HEADER AND MESSAGE BUFFERS 


MESSAGE BUFFER EXPD/RECV 


: EXPMSG - EXPECTED MESSAGE BUFFER 
; RE - RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3° 
BGNMSG MSGSTAT 
MSGSTAT:: 
MOV @STATCOD,R1 sASCII ADDRESS TABLE 
108: MOV CR1)>+,RO s;D00NE ALL MSG LINES? 
BEQ 20% ;68R IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD 04 ,SP 
BR 10% 300 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC .PRMSGE xP sPRINT EXPO/RECV MESSAGE BUFFERS 
ENOMSG 
1100153: 
TRAP CsmSG 
STATCOO: . WORD 1$,28,3%,4%,5%,68%,0 
1%$:.ASCIZ ‘sNSA Tape Bus Signels in Word @8:' 
2$:.ASCIZ ‘sNsA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>' 
3%:.ASCIZ ‘sNsA IRESV2<14> IIDENT<11> IWER <8> IONL<5S> IFBY<1>' 
4%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>’ 
:.ASCIZ ‘@NSA Tape Bus Signals in Word @9:' 
6%:.ASCIZ ‘sNSA DATMIS<7> ILW<6> OQOUTRDY<S> INRDY<4>’ 


EVEN 


.SBTTL MSGLOOP 
3° 


2 

sPRINT ROUTINE TO PRINT 
‘ 

sIMPLICIT INPUTS: 


EXPMSG - EXPECT 
RECMSG 


BGNMSG MSGLOOP 


- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


MESSAGE BUFFER EXPD/RECV 


EO MESSAGE .BUFFER 


- RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


SEQ 69 


F6 


CZTKGA TK - 25 FRT END F 03 MACRO M1200 20-APR-84 08:13 PAGE 52-1 SEQ 70 
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

012726 MSGLOOP: : 
2498 012726 012701 012770 MOV @LOOPCOD ,R1 sASCII ADDRESS TABLE 
2499 012732 012100 10$: MOV CR1)+,RO sDONE ALL MSG LINES? 
2500 012734 001410 BEQ 4 ;BR IF YES 
2501 012736 PRINTX R sPRINT STATUS BIT NAMES 

012736 1 MOV RO, -(SP) 

012740 012746 000001 MOV #1,-CSP) 

012744 010600 MOV SP ,RO 

012746 104415 TRAP CSPNTX 

012750 062706 000004 04 ,SP 
2502 012754 000766 Re 108% 300 ANOTHER MSG LINE 
2503 O12 012700 000012 208: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
2504 012762 737 015436 JSR PC ,PRMSGE xP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
2505 012766 

012766 L10014: 
ones 012766 104423 TRAP CsmMSG 
2507 012770 013010 013063 013162 L 00: . WORD 1$,28,3%,48,5%,6%,7%,0 
2508 013010 045 116 045 1%:.ASCIZ ‘SNSBA Tape Bus Loopback Signals in Word 08:’ 
2509 013063 045 116 045 28:.ASCIZ ' 4 PARERR<15> IRESV2<14> IRESV1<13>° 
2510 013162 045 116 045 3%:.ASCIZ ‘sNSA IWHISP=>IEOT<12> IWRT = >IT IOENT<11> IREV =>ICER <10>° 
2511 013261 045 116 045 4$:.ASCIZ ‘sNSA IWFEM =>IFMK<09> IEDIT=>IHER <O8> IFAD *=>ISPEED<07>' 
2512 013360 045 116 045 5$:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITAD1=>IONL <0O5> IERASE=>ILOP <04>' 
2513 013457 045 116 045 6%:.ASCIZ ‘sNSA IREW =>IDBY<03> IRWU =>IRWD <O2> IFEN *=>IFBY <Ol1>’ 
cote 013556 045 116 045 738: nee” — IGO *#>IFPT<00>' 

cv 


G6 


GEISGS "RBNAMURENE SUBS Sen ESRB BEPPen?O APO 0815 PAGE 55 =n 


ate .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
;¢ 
2520 3 
iq ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
: 
2525 : 
coos sIMPLICIT INPUTS: 
3 
2526 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2527 : - RECEIVED MESSAGE BUFFER 
2528 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
aah : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
j- 
2531 013604 BGNMSG MSGSUB 
013604 MSGSUB: : 
2532 013604 012700 000012 MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
2533 013610 004737 015436 JSR PC ,. PRMSGE xP SPRINT EXPD/RECV MESSAGE BUFFERS 
2534 013614 ENOMSG 
013614 L10015 
013614 104423 TRAP CS$MSG 
2535 
2536 
2537 
2538 
2539 
2540 .SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
2541 36 
2542 : 
aeas sPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
; 
Seen s IMPLICIT INPUTS: 
; 
2547 $ ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
2548 3 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
2549 : ExP - EXPECTED DATA 
Sane ; RECV - RECEIVED DATA 
3° 
2552 013616 BGNMSG MEMADD 
013616 MEMADD: : 
2553 013616 004737 007716 JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
2554 013622 013701 002176 MOV EXPO .R1 ;GET EXPD DATA 
2555 013626 013702 002200 MOV RECV,R2 ;GET RECEIVED DATA 
2556 013632 004737 7500 JSR PC ,.PRIXOR ;PRINT EXPD/RECV 
2557 013636 ENOMSG 
013636 L10016: 
013636 104423 TRAP C$MSG 


BRANEKT BRI 


FRT 
NT: R 


012701 
005002 


002206 


177777 
177777 


177400 


177777 
177777 


002176 
002200 
014006 
000005 
000014 
002246 
002246 


000010 
002246 
116 


002200 


002176 


045 RAMASC: 


3;* 


. SBTTL 


H6 


Fane babe peiagRO "1200 20-APR-84 08:13 PAGE 54 


PRAMPKT - PRINT RAM AND PACKET DATA 


5 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


+ 
; INPUTS: 


R4 


POINTER TO COMMAND PACKET 


; 
sIMPLICIT INPUTS: 


S 


ui 
aad 


78: 


10$: 


158: 
20%: 
253%: 


RAMDATA 


RAMSIZ 


RAMSIZ 


" SAVREG 
MOV 


CLR 


RTS 
-ASCIZ 
.EVEN 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ*O THEN DEFAULT TO 8. 


IMPLICIT OUTPUTS: 


SET TO O 
sSAVE R1-RS —,_* NEXT RETURN 

ORAMDATA,R1 sDATA FROM THE R 
R2 sINIT BYTE NUMBER 
C(R1)+,CR4)> ; COMPARE a RECEIVED 
7$ ;B8R IF NO MATCH 
-10€R1),R5 sGET RECV RAM DATA 
-1€R4),R35 'GET EXPD PACKET DATA 
RS,.R sXOR EXPD/RECV 
#177400,R35 sLOW BYTE ONLY 
-10R1),RECV ;GET RECEIVED RAM DATA 
-1€R4), EXPO ;GET EXPECTED RAM DATA 
@RAMASC ,R2,RECV,.EXPD,RS 
RS, -(SP) 
EXPO, -(SP) 
RECV, -( SP) 
Re, -(SP 
es, -(CSP) 
SP RO 
CSPNTB 
@14,SP 7 
Re sUPDATE BYTE COUNT 
RAMSIZ sDEFAULT TO 8.? 

$ :;BR IF YES 
R2,RAMSIZ sO0NE ALL BYTES? 
a0 ;6R IF NO 

‘ 

R2,08 sD0NE DEFAULT NUMBER OF BYTES? 
5$ ;6R IF NO 
“oes sSET DEFAULT RAMSIZ 


;RETURN | 
‘SNSA BYTE: SD28A RAM: BOSSA Packet: SO3HA XOR:803' 


SEQ 72 


16 


Bhrees "“BRINT CONTENTS OF MESSAGE BUFFER’ 7O-APR-84 06:13 PAGE 55 


014072 


014232 


011032 
003102 


014730 
000003 


000010 
177777 


014650 
000001 


000004 
014775 
000001 


000004 


020304 


_SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


3; 

. 

:;THIS ROUTINE PRINTS THE CONTENTS OF 

s;THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

3; TK-25. 

: 

3; INPUT: 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: 

SAVR: G :;SAVE THE REGISTERS 

"] RS ,RAMRSH sSAVE DEVICE REGISTER POINTER 
RO,RS sSAVE LOW CRDER ADDRESS 

TST K TENABLE sADDRESS ABOVE 28K? 

BNE 108% ;8R IF YES 

CLR a ;SET HIGH ORDER ADDRESS TO O 
10%: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 

ROL sSHIFT BIT1S TO C BIT 


sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


MOV @3, = 
MOV SP, 
TRAP CSPNTX 
ADO #1 


sMESSAGE BUFFER FULL OF ONES 
:BR IF BUFFER IS PROBABLY OKAY 
;"MESSAGE BUFFER PROBABLY NOT VALID” 


ADO @4,SP 
15$: a @PR1LASC sPRINT MEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 


P RO 
;GET PAR FORMAT ADDRESS ABOVE 28K 
sPRINT “MESSAGE BUFFER HEADER =” 


20%: 
PRINTX @MESHEA,(RS)-> 


SEQ 73 


CZTKGA TK-25 FRT 
PRMESS - PRINT 


2647 


2650 


2651 


2652 


CONTENTS OF MESSAGE BUFFER 


END FUNC @5 
i2 
012746 015055 
012746 000002 
010600 
104415 
062706 000004 
1 
012746 015100 
012746 000002 
010600 
104415 
062706 000006 
01 
012746 015145 
ty Le 000002 
104415 
0627 000006 
012546 
012746 015212 
012746 
01 
104415 
062706 000006 
012546 
912746 015257 
012746 000002 
010600 
104415 
062706 000006 
01 
012746 0153524 
012746 2 
01 
104415 
062706 000006 
012546 
012746 015371 
012746 000002 
010600 
104415 
062706 000006 
022737 000001 
001402 
000137 014550 
012746 014552 
ty be 000001 
104415 
062706 000004 


002154 


40$: 


J6 


MACRO M1200 20-APR-84 086:.3 PAGE 55-1 


CRS)-, -( SP) 
@MESHEA, -(SP) 
ee, -(SP) 

SP RO 

CSPNTX 

#6, SP 

hare tees. 


RO 
CSPNTX 
06 , SP 
@RBPCRA, CRS )>+ 
CRS)+,-CSP) 
@RBPCRA, -C SP) 
ee, -(SP) 
SP, 
CSPNTX 
06, SP 
@XSOCON, CRS )>+ 
CRS)+, -CSP) 
@2, -(SP) 
SP, 
CSPNTX 


#6 , SP 
@XS1CON,(RS)-> 
) SP ) 


CR5S)-, -(SP) 


;PRINT 


;PRINT 


;sPRINT 


sPRINT 


;sPRINT 


;PRINT 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


“XSTATS CONTENTS 


;CHECK FOR RAM DUMP REQUIRED 
;8R, IF DUMP REQUIRED 
3;NO OUMP 


SEG 74 


K6 


CZTKGA TK - t FRT END FUNC @3 MACRO M gg0 20-APR-84 06:13 PAGE 55-2 SEQ 75 
PRMESS PRINT CONTENTS OF MESSAGE BUFFE 
2657 014464 012737 000010 002246 MOV 06. ,RAMSIZ sRAM FIELD IS Rhy LONG 
2658 014472 012737 000020 011030 MOV @20 , RAMHLD sFIELO STARTS AT 20 OCTAL (10 HEX) 
2659 014500 004737 010646 JSR PC ,RAMER sREAD AND PRINT THEM 
2660 014504 012737 000040 011030 MOV 40 , RAMHLD iFIELD STARTS AT 40 OCTAL (20 HEX) 
2661 014512 004737 010646 JSR »RAMER sREAD AND PRINT THEM 
2662 014516 012737 011030 MOV #60 , RAMHLD ;FIELD STARTS AT 60 OCTAL (30 HEX) 
2663 014524 004737 010646 JSR PC .RAMER sREAD AND PRINT THEM 
014530 012737 0000 002246 MOV #16. ,RAMSIZ sRAM FIELD IS SIXTEEN BYTES LONG 
2665 014536 012737 000100 011030 MOV #100 , RAMHLD sFIELD STARTS AT 100 OCTAL (40 HEX) 
2666 014544 004737 010646 JSR PC .RAMER sREAD AND PRINT THEM 
2667 014550 000207 508: RTS PC ;RE TURN 
2668 014552 045 116 045 RAMFHR: .ASCIZ ‘NBA seeseeeese SPECIAL CONTROLLER RAM MEMORY DUMP sesceeecce’ 
2669 014650 045 116 045 MESBFN: .ASCIZ ‘sNSA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID’ 
2670 014730 045 116 045 -ASCIZ ‘NSA Buffer Address = 801805’ 
noon 014775 045 116 O45 PRIASC: .ASCIZ ‘sSNSA Messege Suffer Contents: ‘ 
2673 015033 045 116 045 MESHEA: .ASCIZ ‘sSNA Buffer Header = 606’ 
2674 015100 045 116 045 DATAFL: .ASCIZ ‘sNSA Date Field L = 606’ 
2675 015145 045 116 045 RBPCRA: .ASCIZ ‘SNSA Residuel Byte Counter = 606’ 
2676 015212 045 116 045 xX -ASCIZ ‘sNSA XSTATO Contents = 606‘ 
2677 015257 045 116 045 XSiICON: .ASCIZ ‘sNSA XSTATIL Contents = 606' 
2678 015324 045 116 045 xS2c -ASCIZ ‘NSA XSTAT2 Contents = 606’ 
tk 015371 045 116 045 xXS3CON a ‘agNBA XSTATS Contents = 606’ 
Vv 


L6 


T ENO FUNC 65 MACRO rhe. 20-APR-84 06:15 PAGE 56 SEQ 76 
T EXPD/RECV MESSAGE BUFFERS 


2682 .SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
2683 ;¢(8 
2684 : 
2685 sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
2686 : 
2687 : RO - NUMBER OF WORDS IN BUFFER 
2688 ; 
ee ; IMPLICIT INPUTS: 
2691 : EXPMSG - EXPECTED MESSAGE BUFFER 
2692 ; RECMSG - RECEIVED MESSAGE BUFFER 
2693 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
ote : RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
5° 
2696 015436 PRMSGE XP: : 
2697 015436 SAVREG s;SAVE R1-RS UNTIL NEXT RETURN 
2698 015442 010005 MOV RO,RS sSAVE NUMBER OF WORDS 
2699 015444 013700 002252 MOV RCVLOADD ,RO sGET RECV LOW ADDRESS 
2700 015450 010004 MOV RO,R4 ;COPY LOW ADDRESS 
2701 015452 013701 002250 MOV RCVHIADD ,R1 ;GET RECV HIGH ADORESS 
2702 015456 006100 ROL RO sSHIFT BIT1S TO C BIT 
2703 015460 006101 ROL R1 ;SHIFT TO HIGH ORDER FOR PRINTOUT 
2704 015462 PRINTX @PRMSGO,R1,R4 sPRINT MESSAGE BUFFER ADDRESS 
015462 010446 MOV R4,-CSP) 
015464 010146 MOV R1,-CSP) 
015466 012746 015616 MOV » - CSP) 
015472 012746 MOV @3,-(SP) 
015476 Ol 
015500 104415 TRAP CSPNTX 
015502 062706 000010 ADD #10,SP 
2705 015506 PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
015506 012746 015663 MOV @PRMSG1, -( SP) 
015512 012746 000001 MOV #1, -C 
015516 010600 MOV 
015520 104415 TRAP CSPNTX 
015522 062706 000004 ADO 04 ,SP 
2706 015526 005004 i. CLR R4 sNUMBER OF THE CURRENT WORD 
2707 015530 012701 002266 ‘ MOV @EXPMSG,.R1 SGET EXPD BUFFER ADDRESS 
2708 015534 012702 002432 MOV @RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
2709 015540 011100 208: MOV CR1),RO ;GET EXPD 
2710 015542 011203 MOV CR2),R35 oot RECV 
2711 015544 xOR RO,RS XOR EXPDO/RECV 
2712 015554 PRINTX @PRMSG2,.R4,(R1)>, *CR2)-, R3 
015554 010346 MOV RS, -(SP) 
015556 012246 MOV (R2)+, -(SP) 
015560 012146 MOV (R1)+, -CSP) 
015562 010446 MOV R4,-CSP) 
015564 012746 015721 MOV OPRMSG2, -( SP) 
015570 012746 0000905 MOV es, -(SP) 
015574 010600 MOV ° 
015576 104415 TRAP CSPNTX 
015600 062706 000014 ADO 014,SP 
2713 015604 005204 INC R4 s;NUMBER OF THE NEXT 
2714 015606 020405 CMP R4,R5 s;DONE ALL YET? 
2715 015610 002001 BGE 50% ;B8R IF YES 
2716 015612 000752 BR 20% ;00 ANOTHER 


2717 015614 000207 50$:; RTS PC ;RETURN 


Bhristexe” -“Brint ExPo/Reev ms 


2718 
2719 015616 
2720 015665 
2721 015721 
2722 
2723 


M6 


MACRO nT 20-APR-84 06:15 PAGE 56-1 


MESSAGE BUFF 

116 045 PRMSGO: 
116 045 PRMSG1: 
116 045 PRMSG2: 


ASCIZ 
.ASCIZ 
-ASCIZ 
.EVEN 


‘SNSA Message Buffer Address = #01805’ 
SNSA Mess Buffer Contents: ' 





sNBA 


WORD @8D28A EXPD: SO68A RECV: SO68A XOR: #06’ 


SEQ 77 


N6 


TKGA TK-25 FRT END FUNC @3 MACRO M1200 -APR-84 06:13 PAGE 57 SEQ 76 
Shay fe xP - PRINT ERROR BYTES IN EXPUREC MESS BUFFER 


She .SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
;* 
2727 : 
2728 ;ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
dha, : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
‘ 
oyas : RO - NUMBER OF BYTES IN BUFFER 
‘ 
the ; IMPLICIT INPUTS: 
: 
2735 : EXPMSG - EXPECTED MESSAGE BUFFER 
th ; RECMSG - RECEIVED MESSAGE BUFFER 
he 
2738 016006 PRBYTEXP: : 
2739 016006 SA ;SAVE R1-RS UNTIL NEXT RETURN 
2740 016012 010005 MOV RO,RS sSAVE NUMBER OF BYTES 
2741 016014 005037 002264 CLR sINIT ERROR COUNT 
2742 016020 005004 CLR RS sNUMBER OF THE CURRENT BYTE 
2743 016022 012701 002266 MOV GEXPMSG ,R1 sGET EXPD BUFFER ADDRESS 
2744 016026 012702 002432 MOV ORECMSG ,R2 ;GET RECV BUFFER ADDRESS 
27435 016032 111100 20%: MO CR1),RO sGET EXPD BYTE 
2746 016034 042700 177400 BIC @tC<377>,RO0 ;CLEAR UPPER BYTE 
2747 016°%9 110037 016354 MOVB RO ,PRBEXP ;SAVE FOR ERROR REPORT 
2748 016044 111203 MO CR2),R3S ;GET RECV BYTE 
2749 016046 042703 177400 BIC @tC<377>,R3 ;CLEAR UPPER BYTE 
2750 016052 110337 016356 MOVB R3,PRBREC ;FOR ERROR REPORT 
2751 016056 XOR RO,RS ;XOR EXPD/RECV 
2752 016066 122122 CMPB (R1)+,CR2)+ sEXPD = RECV? 
2753 016070 001431 BEG 30$ ;BR IF YES 
27354 016072 005237 002264 INC PRMNO ;UPDATE ERROR COUNT 
2755 016076 023727 002264 000010 CMP PRMNO , 06. sPRINTED 8? 
2756 016104 101023 BHI 30$ ;BR IF YE 
2757 016106 27%: PRINTX @PRBMSG.R4,PRBEXP,PRBREC,RS 
016106 010346 MOV RS. -CSP 
016110 013746 016356 MOV PRBREC , -( SP) 
016114 013746 016354 MOV PRBEXP , -( SP) 
016120 010446 MOV R4,-CSP) 
016122 012746 016222 MOV » - (SP) 
016126 012746 000005 MOV #5, -¢ 
016132 010600 MOV SP ,RO 
016134 104415 TRAP CSPNTX 
016136 062706 000014 ADO #14 ,SP 
2758 016142 FORCEXIT 50$ ; 880 
2759 016152 000404 BR 35$ ; 880 
2760 016154 30$: 
2761 016154 FORCERROR 27%,NOTSSR ; 880 
2762 016164 35$: ; 880 
2763 016164 005204 INC R4 ;sNUMBER OF THE NEXT 
2764 016166 020405 CMP R4,R5 ;DONE ALL YET? 
2765 016170 002001 BGE S0$ ;BR IF YES 
2766 016172 000717 BR $ DO ANOTHER 
2767 016174 50$: PRINTX @PRBTOT,PRMNO £;PRINT TOTAL ERROR COUNT 
016174 013746 002264 MOV PRMNO, -( SP) 
016200 012746 016307 MOV OPRBTOT, -CSP) 
016204 012746 000002 MOV #2, -CSP) 
016210 010600 MOV oP ,RO 
016212 104415 TRAP CSPNTX 


B/ 


Shag TK-25 FRT END FUNC @5 MACRO M1200 20-APR-864 06:15 PAGE 57-1 SEQ 79 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


016214 062706 000006 ADD #6 , SP 


2768 016220 000207 RTS PC ; RETURN 
2770 016222 045 116 O45 PRBNSG: .ASCIZ ‘SNSA BYTE @sD2SA EXPD: BOSSA RECV: BOSSA XOR: #03’ 
2771 016307 045 116 045 PRBTOT: -ASCIZ ‘@NSA NUMBER OF BYTES IN ERROR = sD2’ 

2773 016354 000000 PRBEXP: .WORD 0 sEXPD 

2774 016356 000000 PRBREC: .wWORD 0 sRECV 


2775 


C7 


CZTKGA TK-25 FRT END FUNC @3 — M1200 20-APR-84 06:15 PAGE 56 
EXPREC - PRINT EXPD/RECV WORD DAT 


ok .SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
;* 
2779 i 
thes sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
i 
2782 s INPUTS: 
2783 : 
2784 : Ri RECEIVED DATA 
2785 : Re EXPECTED DATA 
2786 3 
2787 - 
2788 
2789 016360 BGNMSG EXPREC 
016360 EXPREC:: 
2790 016360 004737 007500 JSR PC .PRIXOR sPRINT THE DATA 
2791 016364 
016364 L10017: 
ores 016364 104425 TRAP C8mMSG 


vty 004737 007350 


016372 
016372 104425 


016574 


4 
36 016374 004737 013640 


00 
016400 104423 


D/ 


EZAKGE.™* BR TEBTEEND BUNS B3r_ piQGRO M1200 20-APR-84 08:13 PAGE 59 


-SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 


: 
sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
> 


“ 
s INPUTS: 
* 
: Ri RECEIVED DATA BYTE 
: Re EXPECTED DATA BYTE 
; 
5 @ 

EXPBREC 
EXPBREC: : 

PC ,PRIBXOR sPRINT THE DATA 
L10020 


TRAP C8MSG 


.SBTTL RAMERR - PRINT RAM AND PACKET DATA 
3¢ 


° 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


; INPUTS: 

; R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 
yh 


IF RAMSIZ*0 THEN DEFAULT TO 8. 
IMPLICIT OuTPUTS: 
RAMSIZ SET TO 0 


RAMERR 
RAMERR: : 
JSR - PC ,PRAMPKT sPRINT RAM/PACKET DATA 
L10021: 
C8mMSG 


.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3? 


a 

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
| ~ 

s INPUTS; 


SEG 81 


sen TK - 25 FRT E 
AMTADD - PRINT TES 


2 
016412 


004737 
004737 


104423 


ADDRESS, 


010032 
013640 


177400 
177400 
007624 
007500 


E/ 


MACRO M1200 20-APR-84 08:13 P 9- 
RAM AND PA KET SATA ‘ = 
3 
; R4 POINTER TO COMMAND PACKET 
é 
sIMPLICIT INPUTS: 
: 
: RAMDATA DATA AS READ FROM THE R 
3 RAMSIZ NUMBER OF BYTES IN PACKET 
: IF RAMSIZ*O0 THEN DEFAULT TO 8. 
; ERRHI HIGH ORDER TEST ADDRESS 
: ERRLO LOW ORDER TEST ADDRESS 
3 
s IMPLICIT OUTPUTS: 
3 
; RAMSIZ SET T0 0 
3° 
BGNMSG RAMTADD 
RAMTADD: : 
JSR PC ,PRITADD sPRINT TEST ADORESS 
JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 
ENOMSG 
L10022: 
Rap C8mMSG 
-SB8TTL RAMEXP - PRINT RAM EXPD/RECV DATA 
3° 
F 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
3 
s INPUTS: 
3 
; Ri RECEIVED DATA 
3 R2 EXPECTED DATA 
; R4 CONTROLLER RAM ADDRESS 
j- 
RAME xP 
RAMEXP: : 
BIC @tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
BIC @tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
JSR PC ,.PRIRAM sPRINT THE RAM ADDRESS 
JSR PC ,PRIXOR sPRINT THE DATA 
ENOMSG 
L10023 
Rap C$MSG 
~-S8TTL TIMEXP - PRINT TIMER A,B AND EXP/REC 


3¢ 
: 
sPRINT ROUTINE 


TO DISPLAY EXPD/RECV DATA 


;AND TIMER A,B HEADER MESSAGE 


2 

s INPUTS: 

3 

2 Ri 
; R2 


RECEIVED DATA 
EXPECTED DATA 


SEQ 82 


F7 


TKGA TK- FRT F @3 MACRO M1200 -APR-84 08:13 PAGE 59- 
3 Ss - BRINT Tine XS ANO EXPOREE = . . — i 
2897 3- 
2898 
2899 016436 BGNMSG TIMEXP 
016436 TIMEXP: ;: 
2900 016436 PRINTX @TIMSGO sPRINT HEADER 
016436 012746 016464 MOV @TIMSGO, -C SP) 
016442 012746 000001 MOV #1,-CSP) 
016446 010600 MOV SP ,RO 
016450 104415 TRAP CSPNTX 
016452 062706 000004 ADO 04,SP 
2901 016456 004737 007500 JSR PC ,PRIXOR ;sPRINT THE DATA 
2902 016462 ENOMSG 
016462 L10024;: 
016462 104425 TRAP C$MSG 
2903 


2905 216464 045 116 045 oy -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2’ 


G/ 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 60 SEQ 84 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2908 .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2910 3° 
2911 ; 
My sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
: 
2914 ; INPUTS: 
2915 : 
2916 ; RL CONTENTS OF TSSR 
2917 : R2 DATA WRITTEN (8 BITS) 
2918 ; 
2919 :- 
2920 
2921 016564 BGNMSG BADSSR 
016564 BADSSR: : 
2922 016564 010246 MOV R2,-CSP) s;SAVE DATA TRANSFERRED 
2923 016566 042702 177400 BIC #177400 ,R2 sGET JUST ONE BYTE 
2924 016572 PRINTB @XFERASC,R2 
016572 010246 MOV R2,- ) 
016574 012746 016624 MOV @XFERASC, -( SP) 
016600 012746 000002 MOV @2,- 
016604 01 MOV 
016606 104414 TRAP CSPNTB 
016610 062706 000006 ADD #6 .,SP 
2925 016614 012602 MOV (SP)+,R2 sRESTORE Reo 
2926 016616 004737 005264 JSR PC ,.PRITSSR sDECODE TSSR CONTENTS 
2927 ©€16622 ENOMSG 
016622 10025: 
016622 104423 TRAP Cs$MSG 
2928 016624 045 116 045 XFERASC: -ASCIZ ‘sSNA Date Transferred = 603' 


2929 


H7 


Z K - os MACRO M - APR - p 
£2 IKGA IKE ROUT IKE ERECT TON CRO M1200 20 84 08:15 PAGE 61 SEG 85 
oes .SBTTL GLOBAL SUBROUTINES SECTION 
2933 3¢ 
2934 : THE GLOBAL SUBROUTINES SECTION aaa THE SUBROUTINES 
2935 ; THAT ARE USED IN MORE THAN ONE TEST. 


Sr tnt 


012765 


Nit’ SdeT INTTTALL2e OF CONTROL 


000000 
017134 
000000 


176277 
002200 


17 


O M1200 20-APR-84 06:13 PAGE 62 


LER 


3* 


.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 


: 
sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
:BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 


;THE TSSR REGISTER IS TESTED FOR ERRORS. 


ANY ERRORS 


‘epee SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


V INPUTS: 
; 
3 


RS 


; 
;OUTPUTS: 


SOF INIT: : 
S 


S$: 
10%: 


RO 
CARRY 


MOV 


ADDRESS OF FIRST REGISTER 


CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


CALLING SEQUENCE : 


@ADDRESS ,RS 
PC ,SOF INIT 
CONTINUE 


#0, eo 
PC ,WAITF 


sREPORT FATAL ERROR 


; SAVE THE REGISTERS 
; OO THE INIT. 
; WAIT FOR SSR 


TSSRCRS), RO <a re TSSR REGISTER 
RO,R sSTART SETUP OF EXPECTED TSSR 
Or cHIADOR!OFL>. Ra ;CLEAR OUT UNUSED BITS 
@SSR!NBA,R4 sR4 HAS EXPECTED CONTENTS 
R4,RO sONLY EXPECTED BITS SET ? 
S$ sBRANCH IF OKAY 

;CLEAR THE CARRY FOR ERROR 
10% 3GO TO EXIT 

;SET THE CARRY BIT 
PC ;sRETURN TO CALLER 


SEQ 66 


J7/ 


CZTKGA TK - 25 FRT END FUNC @35 MACRO M1200 20-APR-84 08:13 PAGE 63 SEG 87 
CHK AMB CHECK TSSR FOR AMBIGUITY 
coat .SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
2984 ¥ 
2985 
2986 : THIS ~eh.. TESTS THE CONTENTS OF THE TSSR REGISTER 
2987 ‘ton AMBIGUITY 
2988 
2989 : , INPUT : 
2990 3 
2991 : RO CONTENTS OF TSSR 
2992 : 
2993 ; OUTPUT: 
O94 3 
2995 3 RO CONTENTS OF TSSR 
2996 : 
2997 : CARRY SET - NO AMBIGUITY 
2998 : CLR - AMBIGUOUS CONTENTS 
2999 3 
3009 3° 
3001 
3002 0167350 CHKAMB : 
3003 016750 SAVREG s;SAVE THE GENERAL REGISTERS 
3004 016734 010004 MOV RO,R4 sCONTENTS OF TSSR 
3005 016736 032700 100000 BIT @sc ,RO ;IS BIT 15 SET ? 
3006 016742 001004 BNE 53 sBRANCH IF YES 
3007 016744 032700 174077 BIT @*CCNBALOFL!SSRIMIADOR> RO ;ANY OTHER BITS SET ? 
3008 016750 001023 BNE sMUST BE AN ERROR 
3009 016752 000424 GR ass SRE TURN WITH SUCCESS 
3010 016754 032700 000200 5$: BIT @SSR RO :IS READY BIT SET ? 
3011 016760 001011 BNE 10% ;BRANCH IF READY BIT IS SET. 
3012 016762 032700 000040 BIT @BITS,RO :3IS FATAL ERROR BIT SET ? 
3013 016766 001414 BEG 40% sERROR IF NOT 
3014 016770 042704 177761 BIC @rCTERCLS,R4 ;CLEAR ALL BUT TERMINATION CODE 
3015 016774 020427 000016 CMP R4,@16 s;ALL THREE BITS MUST BE SET 
3016 017000 001007 BNE 40% sERROR IF NOT SET 
3017 017002 000410 BR 45% ;0K IF ALL ARE SET 
3018 017004 032700 000040 108: BIT #BITS,RO VIS FATAL ERROR BIT SET ? 
3019 017010 001405 BEQ 45% ;ERROR IF BIT IS SET WITH SSR 
3020 017012 032700 000006 BIT SBIT2:BIT1,RO :;IS THIS A FUNCTION REJECT 
3021 017016 001002 BNE 45% ;8R, IF TSSR IS OK 
3022 017020 000241 403%: CLC ;AMBIGUOUS CONTENTS 
3023 017022 000401 BR 50% 
3024 017024 000261 45%: SEC ;SHOW SUCCESS - NO AMBIGUITY 
3025 017026 000207 50$: RTS PC ;RETURN TO CALLER 


KK 7 


CZTKGA TK-25 FRT END FUNC 063 MACRO M1200 20-APR-84 08:13 PAGE 64 


SEQ 868 
ENAINT,.OSBINT - ENABLE/DISABLE INTERRUPTS 


aa .SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
$ 

3030 ; DEFAULT DISPLAY INTERRUPT HANDLERS. 

3031 ; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 

30 ; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 

3033 3 

3034 

ey ; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
: 

3037 000200 IOKCKIN«=BIT7 s DON’T CHECK FOR BAD INTERRUPTS -- TEST WILL. 

ins 000001 IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 
: 

3040 ; INTERRUPT MASK -- says EXPECTING INTERRUPTS 

3041 017030 000 INTMASK : .BYT 

3042 s INTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 

oak 017031 000 INTFLAG: .BYTE O 

3045 :;SAVED INTERRUPT VECTOR: 

017032 000000 INTVEC: .WORD 0O 

3047 ;SAVE CPU PC 

coos 017034 000000 INTCPC: .WORD 0 

3050 s SUBROUTINE TO ENABLE INTERRUPTS: 

3051 017036 Ol ENAINT ; : MOV RO, - ) ;SAVE RO 

3052 017040 013700 002156 MOV IVEC, RO ;GET POINTER TO VECTORS 

3053 017044 012720 017102 MOV @INTR, CRO)> ;SET UP INTERRUPT VECTOR 

3054 017050 012720 000340 MOV @PRIO7,(RO)> 

3055 017054 012600 MOV (SP )+,RO sRESTORE RO 

3056 017056 011646 MOV (SP), -CSP) 

3057 017060 012766 000000 000002 MOV eC ;SET CPU TO LEVEL O 

ae 017066 RTI 

3060 ; SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 

3061 017070 011646 OSBINT: MOV ¢ o- ) 

3062 apd | 012766 000340 000002 a @PRIO7,2(SP) 


017124 


0171352 
017132 
017132 
017132 


012737 
105037 


TATR” "" PRTERRUPT HANDLERS 


00000 
017031 
000001 


L/ 


MACRO M1200 20-APR-84 08:13 PAGE 65 


002172 
017030 
017031 


INTR:: 


. SBTTL 


8 
BISB 


INTR - INTERRUPT HANDLERS 

INTR sDEFINE INTERRUPT ENTRY 

#1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
NTF sCLEAR FLAG TO SAY WE GOT INTERRUPT 


INTFLAG 
emma » INTMASK 1EXPECTING STOP INTERRUPT? 
@IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


+ age REGISTERS, MSG BUFFER, ETC. 


L10026: 


ENOSRV 
RTI 


SEQ 89 


AIT 


3081 


017172 


104422 
012746 


012727 
000000 
013727 


100421 


000000 
013727 
000090 


177776 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 


. SBTTL 
i 

; SUBROUTINE TO 
: 

; INPUTS: 


RS 


° 
;OUTPUTS: 


2s: 


3$: 
4$: 


AITF:: 


M7 


TK - e356 rf RT RNG CUM 25 reaper’ M1200 20-APR-84 08:15 PAGE 66 


WAITF 


- WAIT FOR SUBSYSTEM READY 


WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET BIT SET 


- READY 


CLR - TIMEOUT WAITING FOR READY 


CSBRK 
0177776, -(SP) 
#1,CPC)-+ 
"phar 
-6(PC) 
-22(PC) 
TSSRCRS),RO 
RO 


' 
lattes 
"penitent 
> oe 
"D2cPC) 
.-20 
Cs$BRK 
(SP) 

cs 

4s 

(SP )>+ 

PC 


; DO A SUPVSR BREAK FIRST. 


;B8IG MSEC TIMER 
;DELAY 100US 


sREAD THE TSSR REGISTER 
;TEST FOR READY BIT SET 


; EXIT ON STOP FLAG. 
; WAIT 100 USEC 


; DO A SUPVSR BREAK FIRST. 


sREOUCE DELAY COUNT 
sRETRY UNTIL TIMER EXPIRES 
; C = 0, CONTROLLER STILL RUNNING... 
+ th HUNG-UP AFTER 300 MSEC. 
C = 1, CONTROLLER IS STOPPED. 
}RESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 90 


BAL TK - S 


017306 
017310 


ne Teer FUNC #3 


TSSR FOR READY 


017134 
016730 
100000 
074000 
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49 


.SBTTL CHKTSSR - CHECK TSSR FOR READY 


; THIS ROUTINE WAITS FOR READY IN THE TSSR 
ee TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


; INPUT : 
: 
; 


) 
;OUTPUT: 


10$: 


15$: 
20%: 


RS 


RO 
CARRY 


ADDRESS OF CSR REGISTERS 


CONTENTS OF TSSR 
SET - OKAY 


CLR - NOT "READY AMBIGUOUS, OR SC SET 


PC ,WAITF 
20$ 
PC , CHKAMB 
10$ 


@SC ,RO 


15$ ;BR 
@<SCE!BIE!RMRINXM>, RO. 
15$ R IF 


20% 
PC 


;WAIT FOR READY 
;8R IF YES 
ty CONDITION SET? 
;ANY ERROR BITS SET? 
38 NO 
;SET FAILURE 


: 
;SET SUCCESS 
;sRETURN TO CALLER 


SEQ 91 
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CHECK FOR NONEXISTENT MEMORY 
a ek .SBTTL XNXM - CHECK FOR NUNEXISTENT MEMORY 
1 s¢ 
3147 : ROUTTNE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R22). 
3148 3s ON RETURN, IF "C” © 1, CR1L) © NEXM ADDRESS. 
to : "C" «= O, ALL ADODFESSES OK, 
t 
3151 s;CALL: MOV ADR1,F1 
3152 : MOV V ADR2,Re 
31535 : JSR PC ,NXM 
te : RE TURN sTEST “C” AND PROCEED. 
: 
3156 017312 012737 017344 000004 XNXM: MOV 02% ,804 s SET BUSERR VECTOR. 
3157 017320 012737 000200 000006 MOV OPRI04 , 806 
3158 017326 005003 CLR RS sFLAG. 
3159 017330 ©coS5711 18; TST (R1) sTEST THE ADORESSC(ES). 
3160 sIF ANY TRAP, CONTINUE AT 28 
3161 017332 020102 CMP R1,Re2 sOTHERWISE, CONTI 
3162 017334 001407 BEQ 3% ;8R IF FINISHED — NEXM’S). 
3163 017336 062701 000002 ADO #2,R1 3SET NEXT ADORESS.. 
ter 017342 000772 BR 1% 3...AND CONTINUE. 
3166 017344 005103 2s: COM RS sGOT ONE, SET FLAG... 
3167 017346 012716 017354 MOV @3%.(SP) 
3168 017352 000002 RTI ~-AND DISMISS INTERRUPT. 
3169 017354 38: CLRVEC 04 -AND GIVE BACK THE VECTOR. 
017354 012700 000004 MOV 04 ,RO 
017360 104436 TRAP CsCveECc 
3170 017362 005703 TST R3 sDID WE CATCH ONE ?? 
3171 017364 001401 BEQ .°4 sNO, “C” = O, SKIP NEXT. 
3172 017366 000261 SEC svYES, “C”" = 1, (RL) = NEXM ADOR. 
3173 017370 000207 RTS PC 
3174 
3175 
3176 
3177 »« 
+p .SBTTL TSTLOOP - CHECK ITERATION COUNT 
3° 
3180 s SUBROUTINE TO EXECUTE TEST ITERATIONS. 
3181 s EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
te ; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
’ 
tre 3 CALL: LOOPTO ARG 
: 5 
3186 017372 TSTLOOP: ;: 
3187 017372 005737 002136 TST NOITS s ITERATIONS INHIBITED? 
3188 017376 001006 BNE 18 s YES. 
3189 017400 005737 002152 TST QvP 3 NO. 
3190 017404 100403 BMI 18 ;LOOPS OISALLOWED _ QUICK PASS. 
3191 017406 005337 002164 DEC LOOPCNT ; BUMP LOOP COUNTER 
3192 017412 001002 BNE 2s 
3193 017414 000241 18%: CLC 3LO0P DISALLOWED, OR DONE. 
3194 017416 000401 BR 38 
3195 017420 000261 2s: SEC ;LOOP ENABLED. 


3196 017422 000207 3%; RTS PC 
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SEQ 93 


TSTLOOP - CHECK ITERATION COUNT 
338 
i 
aSoe -SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
| 
3202 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG 
3203 3 INCREMENT “TESTK” TO INDICATE THE NUMBER OF TESTS 
3204 : IN THE CURRENT RUN SEQUENCE. 
hey ; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3207 P INPUT: 
3208 : 
tH : RO POINTER TO TEST ID ASCIZ STRING 
1 i 
3211 sOUTPUT: 
3212 : 
dH : RS ADDRESS OF FIRST DEVICE REGISTER 
i 3 
th sIMPLICIT OUTPUTS: 
: 
oe 3 TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
218 : 
3219 :;SIDE EFFECTS: 
3220 $ 
3221 3 INTERRUPT LEVEL IS RASIED TO LEVEL OF 
3222 : THE DEVICE UNDER TEST 
32235 5 
3224 2 
3225 
3226 017424 TSTSETUP:: 
3227 017424 010046 MOV RO, -( SP) sSAVE THE TEST ID MESSAGE 
3228 017426 005037 003106 CLR SIFLAG 3 CLEAR “SOFT INIT” FLAG 
3229 017432 005037 017672 CLR ERRK : CLEAR LOCAL ERROR COUNTER 
3230 017436 005037 CLR EXTA : CLEAR ERROR EXTENSION FLAG. 
3231 017442 105037 017030 CLRB INTMASK s CLEAR INTERRUPT a (CHECK ERROR) 
3232 017446 013700 002150 MOV UNITN,RO s GET THE UNIT 
3233 017452 006300 ASL RO es AND MAKE IT A WORD OFFSET. 
3234 017454 005737 003062 TST NODE V ’ OI STARTUP FIND THE DEVICE? 
3235 017460 001430 BEQ as ; BR IF YES 
3236 017462 100010 BPL 3% ; BR IF NOT IDOLE 
3237 017464 052760 160000 003130 BIS #160000 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3238 017472 ERROF 1,NXR,NXRERR s NO DEVICE HERE -- PRINT IT 
017472 104455 TRAP C SERDF 
017474 000001 . WORD 1 
017476 003636 .WORD WNXR 
17500 005176 .WORD WNXRERR 
3239 017502 000407 BR 2s 
3240 017504 052760 160001 003130 53%: BIS #160001 ,ERTABLCRO) ; FLAG ERROR IN THE ERROR TABLE 
3241 017512 ERROF 2,NOINIT s DEVICE NOT IOLE 
17512 104455 TRAP CsERDF 
017514 00000 . WORD 
017516 004255 -WORDB NOINIT 
017520 000000 . WORD 
3242 017522 012737 177777 003060 2%: MOV @-1,0UFLG 3 DROP THE UNIT 
3245 017530 UNITN 
017530 013700 002150 MOV UNITN,RO 
017534 104451 TRAP 
3244 017536 DOCLN ; ABORT THE PASS 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

017536 104444 TRAP C#0CLN 

te 017540 000425 BR S$ 

6 

3247 017542 4%: RFLAGS RO s GET THE OPERATOR FLAGS. 
017542 104421 TRAP CSRFLA 

3248 017544 032700 001000 BIT @PNT, 3 PRINT THE TEST NUMBERS? 

3249 017550 001412 BEQ i$ ; BR IF NO 

3250 017552 011600 MOV CSP),.RO sGET THE ID MESSAGE 

3251 017554 PRINTF @TNAM,RO sDISPLAY THE TEST ID 
017554 010046 MOV RO, -(SP) 
017556 012746 017620 MOV @TNAM, -CSP) 
017562 012746 000002 MOV @2,-( 
017566 01 MOV »RO 
017570 104417 TRAP CSPNTF 
017572 0627 » SP 
017576 0052357 002162 1$: I TSTCNT s BUMP TEST COUNTER. 

3253 017602 SETPRI IPRI sPRIORITY THAT OF DEVICE 
017602 013700 002160 Vv IPRI ,RO 
017606 104441 TRAP CSSPRI 

- 3254 017610 005726 S$: TST (SP )« sFIX UP THE STACK 

3255 017612 013705 002154 MOV CSRADOR ,RS s ADORESS OF TSV REGISTERS ON UNIBUS 
017616 000207 RTS P 

3257 017 045 123 045 TNAM ASCIZ ‘SSSTSA Test’ 

3258 VEN 


0) 
017670 


017672 
017674 
017715 


104421 
030027 
001412 


0127357 
104455 
000004 
017713 


020000 


017672 
017674 
000002 


1 
122 


017672 
002150 
003150 
007777 


017672 


000040 
177777 
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040 
l22 


002140 


003060 


. SBTTL 


TSTENO 


- PRINT ERRORS RECEIVED 


AT ENO OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 


; BR IF “IER” NOT SET. 


PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


/#A #08A ERRORS 
ZERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


3° 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


STEND: RFLAGS RO 
TRAP CSRFLA 
BIT RO, @IER 
BEQ 
PRINTF @E€SUM,ERRK 
MOV ERRK , -( SP 
MOV @ESUM, -C SP) 
MOV 2,-¢ 
MOV RO 
TRAP CSPNTF 
ADD #6, SP 

1%: RTS PC 

ERRK: 0 

ESUM: -ASCIZ 

EMAXDU: .ASCIZ 
.EVEN 
.SBTTL INCERK 

ie 

INCERK: INC ERRK 
MOV RO, -(SP) 
MOV UNITN,RO 
ASL RO 
ADO @ERTABL ,RO 
INC CRO) 
BIT @7777,CRO) 
BNE 1% 
DEC CRO) 

1%: MOV (SP)+,RO 
RTS PC 

CKEMAX: MOV RO, -CSP) 
MOV UNITN,RO 
ASL RO 
MOV ERTABLC(RO),RO 
BIC #170000 ,RO 
CMP RO, GERRMAX 
BHIS is 
CMP ERRK , LERRMAX 
BLO es 

1%: RFLAGS RO 
TRAP CSRFLA 
BIT @ID0U,RO 
BNE 2s 
MOV @-1,0UFLG 
ERROF 4, EMAXDU 
TRAP CsERDF 
.WORDB 4 
. WORD EMAXDU 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 


GET UNIT NUMBER, 

..- AND MAKE IT A WORD OFFSET. 

RO GETS ADORESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
a OVERFLOW THE FIELD? 


F NO. 
YES -- BACK IT W TO 7777. 
RESTORE 
RETURN TO CALLER. 


SAVE RO 
GET UNIT NUMBER 
AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIELD 
BS ee LIMIT EXCEEDED FOR THIS UNIT? 
zs oe. LIMIT EXCEEDED FOR THIS TEST? 


8 
GET OPERATOR FLAGS 
Is a ae INHIBITED? 


BR IF 
NO -- DROP THE UNIT 


SEQ 95 


3306 


000000 


013700 
104451 


013701 


002150 


oee 


UNITN 
UNITN,RO 
Cs000uU 


CSOCLN 
one 
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s RESTORE 


RO 
+ RETURN TO CALLER 
FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 


CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 


SAVREG 
MO 


UNITN,R1 
R 


#1 ,ERTABL(R1) 
FATFLG 
en 


RO 
CSRFLA 
— RO 


Pe. » CKOROP 


sBETTER SAVE THE REGISTERS 
sPICK UP THE UNIT NUMBER 


THE PROPER UNIT'S ERROR COUNTER 


TO 
sBUMP FATAL ERROR COUNTER 
s CHECK AGAINST 25 
3BR, IF LESS THAN 25 ERRORS 
sREAD THE FLAGS INTO RO 


;BR, IF 


LOOP ON ERROR IS SET 
sOTHERWISE NEVER BE ABLE TO SCOPE ETC. 


sDROP UNIT IF ALLOWED 
sRETURN ETC. 


SEQ 9% 
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tit .SBTTL CKDOROP - CHECK IF UNIT SHOULD BE DROPPED 
3° 
3336 ; CHECK IF UNIT SHOULD BE DROPPED 
i- 
3338 020170 010046 CKDROP: MOV RO, -(SP) 
3339 020172 FORCERROR 1$,NOTSSR 
3340 020202 RFLAGS RO 
020202 104421 TRAP C$RFLA 
3341 020204 032700 000040 BIT @IDU,RO 
3342 020210 001010 BNE 
3343 020212 011600 MOV = (SP), RO 
3344 020214 012737 177777 003060 MOV ' @-1,0UFLG 
3345 020222 DODU  =—:UNITN 
020222 013700 002150 MOV UNITN,RO 
020226 104451 TRAP C$DODU 
3346 020230 DOCLN ;ABORT THE PASS 
020230 104444 TRAP  CSDCLN 
3347 020232 012600 1$: MOV (SP)+,RO 
3348 020234 000207 RTS PC 
3349 
3350 
3351 
3352 
3353 .SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
2 
$335 ; SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 
‘ 
3357 020236 CONFIG: 
3358 020236 004737 016660 JSR PC, SOF INIT 
3359 020242 000207 RTS PC 
3360 
3361 
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KTON,KT - ENABLE/DISABLE MEMORY MANAGEMENT 
coca .SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
; 
eect ; SUBROUTINE - ENABLE MEM MGT. 
: 
3368 020244 005737 003100 K TON: TST KTFLG 3 GOT KT? 
3369 020250 001403 BEQ 1% s NO, 
3370 012737 000001 177572 MOV #1,SRO s YES. ENABLE KTil1. 
3371 020260 000207 1$: RTS PC 
3372 
3373 
3374 
3375 ; 
eset ; SUBROUTINE - DISABLE MEM MGT. 
3 
3378 020262 005737 003100 KTOFF: TST KTFLG ; GOT KT11? 
3379 020266 001405 BEQ i$ s NO. 
3380 020270 000240 NOP 
3381 020272 000240 NOP 
3382 020274 012737 000000 177572 MOV 60, SRO ; DISABLE KT. 
Sees 020302 7 1$: RTS PC 


3387 
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SETMAP - SETUP ING 


PAR6 MAPP 


003100 


18 
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-SBTTL SETMAP - SETUP PAR6 MAPPING 
” 
: THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 


;AN 16 BIT ADDRESS. THE OFFSET INTO THE PAGE 
_ RETURNED BIASED TO PARE. 


V INPUTS: 
4 
: RO HIGH ORDER ADDRESS BITS 
: Ri LOW ORDER ADORESS BITS 
;OUTPUTS 
; 
; RO OFFSET INTO BLOCK WITH PARG BIAS (I.E. THE ADORESS) 
: CARRY SET IF SUCCESS 
3 CLR IF ERROR 
SE TMAP : 
SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
ST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10% ;8R IF NO 
"Ov R1 Re ;SAVE LOW ORDER BITS 
ASR RO :;CONVERT WORD ADORESS TO 32w BLOCKS 
ROR Ri sMAKE IT DOUBLE PRECISION 
BIC @177,R1 ;ALINE FOR LOWER 4K BOUNDARY 
R1,KTFLG ;HIGHER THAN EXISTING MEMORY? 
BHIS 10$ ;8R IF YES 
MOV R1, BEKIPARG ;SETUP MAPPING REGISTER PARG 
BIC #160000 ,R2 sSETUP DISPLACEMENT IN PAGE 
ADO #140000 ,R2 ;ADO IN PAR6 BIAS 
MOV R2,RO ;RETURN IN RO 
SEC ;SET SUCCESS 
BR 158 : 
108: CLC ;SET FAILURE 
15$: RTS PC ; RE TURN 


SEG 99 
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SE@ 100 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


Ss .SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3? 
eae ; FILL MEMORY WITH A BACKGROUND PATTERN 
3 
3432 ; INPUTS: 
34335 : 
34 : RO = BACKGROUND PATTERN 
3435 ; FREE *« FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
eens ; KTFLG * SET TO HIGHEST MEMORY LOCATICN IF-> 28K. 
: 
3438 3; OUTPUTS: 
3439 3 
3440 3 NONE 
3441 i- 
3442 ; 
3443 020410 FILLMEM: 
3444 020410 SAVREG s;SAVE R1-RS UNTIL NEXT RETURN 
3445 020414 004737 020262 JSR PC ,KTOFF sOISABLE KT. 
3446 0204 010003 MOV RO,RS ;COPY TEST PATTERN 
3447 020422 013701 003072 MOV FREE ,R1 ;GET FIRST FREE LOCATION 
3448 0204 013702 003074 MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28K. 
3449 020432 010321 10$: MOV R3,CR1)-« sSTORE A BACKGROUND WORD 
3450 020434 DEC Re ;DONE ALL MEMORY IN FREE SPACE? 
3451 020436 003375 BGT 10$% ;8R IF NO 
3452 020440 005737 003100 TST KTFLG 3; GOT KT? 
3453 020444 001452 BEQ 558 s NO. GET OuT. 
54 020446 004737 020244 JSR PC .KTON s YES. ENABLE KT. 
3455 020452 00 CLR RO sHIGH ORDER ADDRESS STAR 
cant 020454 013701 003104 _ ne s;GET >»28K START ADDRESS Cn 32W BLOCKS) 
3458 CLC ;CLEAR C BIT 
3459 ROL R1 sCONVERT BLOCKS TO WORDS 
oer na RO sMAKE IT DOUBLE PRECISION 
3462 4 004737 020304 JSR PC ,SETMAP ;SETUP PAR6 MAPPING REGISTER 
3463 020530 010320 30$: MOV R3,CRO)> ;STORE TEST PATTERN IN >28K ADDRESS 
3464 020532 020027 160000 CMP RO, #160000 sENO OF PARG6 MAPPING AREA? 
3465 020536 103774 BLO 308% ;8R IF NO 
3466 020540 162700 SUB #20000 ,RO BACKUP INTO PAR6 MAPPING BEGIN 
3467 020544 062737 200 172354 ADD 200 , BOK IPARG6 sPOINT TO NEXT 4K BLOCK >28K. 
3468 020552 023737 172354 003100 CMP BOK IPARG, KTFLG ;END OF MEMORY? 
3469 020560 001402 BEQ 508 ;8R IF YES 
3470 020562 000137 020530 JMP 30% sKEEP GOING ON ETC. 
3471 020566 004737 020262 508: JSR PC .KTOFF ; DISABLE KT. 
ee 020572 000207 558: RTS PC 
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CMPMEM- 


SE@ 101 
COMPARE MEMORY TO BACKGROUND PATTERN 


cave .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3¢ 
fh ; COMPARE MEMORY WITH A BACKGROUND PATTERN 
a : 
3480 ; INPUTS: 
3481 3 
3482 : RO = BACKGROUND PATTERN 
3483 : FREE *s FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
coen : KTFLG «= SET TO HIGHEST MEMORY LOCATION IF > 28K. 
85 : 
3486 ; OUTPUTS: 
3487 ; 
3488 ; CARRY - SET IF NO ERROR 
3489 ; CARRY - CLR IF ERROR 
3490 : 
3491 ; IMPLICIT OUTPUTS: 
3492 : 
3493 3 ERRHI - ERROR HIGH ADDRESS 
3494 3 ERRLO - ERROR LOW ADDRESS 
3495 ; EXPD - EXPECTED DATA 
3496 ; RECV - RECEIVED DATA 
3497 3- 
3498 020574 CMPMENM : 
3499 020574 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
3500 020600 010003 MOV RO,RS ;COPY TEST PATTERN 
3501 020602 004737 020262 JSR PC .KTOFF ;DISABLE KT. 
3502 020606 013701 003072 MOV FREE .R ;GET FIRST FREE LOCATION 
3503 020612 013702 003074 MOV FRESIZ,R2 3sSIZE OF FREE SPACE BELOW 28K. 
3504 020616 020311 108: CMP R3,CR1 sFREE SPACE LOCATION EQUAL TO EXPD? 
3505 020620 001411 BEQ 158 3 IF YES 
3506 020622 010137 002204 MOV R1,ERRLO ;SAVE ADDRESS IN ERROR 
3507 020626 002202 CLR E I 3;NO HIGH ADORESS 
3508 020632 010337 002176 MOV R3,.EXPD ;SAVE EXPD FOR ERROR REPORT 
3509 020636 011137 002200 MOV CR1),RECV ;SAVE RECV FOR ERROR REPORT 
3510 020642 000474 BR $ 3 
3511 020644 005721 158: TST CR1)- sPOINT TO NEXT ADDRESS 
3512 005302 DEC R2 ;D0NE ALL MEMORY IN FREE SPACE? 
3513 020650 0037 2 BGT 10% ;8R IF NO 
3514 020652 005737 003100 TST KTFLG 3; GOT KT? 
3515 020656 001472 BEQ 55$ ; NO. GET OUT. 
3516 020660 004737 020244 JSR PC .KTON ; YES. ENABLE KT. 
3517 020664 CLR s;HIGH ORDER ADDRESS STAR 
os 020666 013701 003104 y= ahaa ;GET »>28K START ADDRESS Can 32W BLocKs) 
3520 ROL Ri ;CONVERT BLOCKS TO WORDS 
3521 ROL RO sMAKE IT DOUBLE PRECISION 
3522 .ENDR 
3523 020722 042701 000177 BIC #177,R1 ;ALINE 4K BOUNDARY 
3524 020726 010046 MOV RO, -C SP) ;SAVE HIGH ORDER 
3525 020730 010146 MOV R1,-CSP) s;SAVE LOW ORDER 
3526 020732 004737 020304 JSR PC ,SETMAP ;SETUP PAR6 MAPPING REGISTER 
3527 020736 010004 MOV »R4 ;COPY ADDRESS BIASED TO PARG6 
3528 020740 012601 MOV CSP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
3529 020742 012600 MOV (SP)+,RO ;RESTORE HIGH ORDER IN NON PARE FORMAT 
3530 020744 020314 30%: CMP R3,CR4) ;ABOVE 28K LOCATION EQUAL EXPD? 
3531 020746 001411 BEQ 32% ;8R IF YES 
3532 020750 010037 002202 MOV RO,ERRHI ;SAVE HIGH ORDER IN ERROR 
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CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3533 020754 0101357 002204 MOV R1,ERRLO sSAVE LOW ORDER IN ERROR 
3534 020760 0103537 002176 MOV R3,EXPOD sSAVE EXPD FOR ERROR REPORT 
3535 020764 0114357 002200 MOV (R4),RECV sSAVE RECV FOR ERROR REPORT 
3536 020770 000421 BR 50$ i 
3537 020772 062701 000002 Ses: ADD @2,R1 sUPDATE NON PAR6 ADDRESS 
3538 020776 005500 ADC RO sMAKE IT DOUBLE PRECISION ADD 
3539 021000 062704 000002 ADD @2,R4 sUPDATE PAR FORMAT 
3540 021004 020427 160000 CMP R4 , #160000 sEND OF PAR6 MAPPING AREA? 
3541 021010 103755 BLO 30$ s6R IF 
3542 021012 162704 020000 SUB #20000 ,R4 ; BACKUP INTO PAR6 MAPPING BEGIN 
3543 021016 062737 000200 172554 ADO 0200,Q@@KIPARG ;POINT TO NEXT 4K BLOCK >28K. 
3544 021024 023737 172554 003100 CMP BOKIPARG,KTFLG ;END OF MEMORY? 
3545 021032 101744 BLOS 30% sBR IF NO 
3546 021034 004737 020262 50$: JSR PC .KTOFF sTURN OFF MEMORY MAPPING 
3547 021040 000241 CLC sSET FAILURE 
3548 021042 000405 BR 60$ i 
3549 021044 004737 020262 SS5$: JSR PC ,KTOFF sTURN OFF MEMORY MAPPING 
3550 021050 000261 SEC sSET SUCCESS 
3551 021052 000207 60$: RTS PC 


021112 
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.SBTTL REGSAV - SAVE R1-RS ON STACK 


3¢ 


; 
sROUTINE TO 
;SAVE R1 THROUGH RS ON THE STACK 


: 
sCALLING SEQUENCE; 


: 

: JSR RS ,REGSAV 

$ 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
pi Ait Ba, RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

‘ . 


& 

;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
;CALLED VIA A JSR PC INSTRUCTION 

: 

ge 


REGSAV: 
BREAK 3;LOOK FOR CNTL C 
TRAP CsBRK 
MOV R4, -C 


MOV CSP)+,RS 

BREAK sLOOK FOR CNTL C 
TRAP C$BRK 

RTS PC 


SEQ 103 


CZTKGA TK-25 FRT END FUNC @3 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


021114 
021114 


021142 


021146 
7 


021150 


021152 
4 


105 


021150 


116 
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124 


N8 


SEQ 104 


.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


;* 


: 
sROUTINE TO REQUEST AN & BIT DATA PATTERN FROM THE OPERATOR 


; 
; INPUTS: 
: 
; NONE . 
; 
;OUTPUTS: 
; 
; RO OCTAL NUMBER FROM THE OPERATOR 
: 
;CALLING SEQUENCE: 
; 
: JSR PC ,GETPAT 
3 
3° 
GETPAT 
SAVREG ;SAVE THE GENERAL REGISTERS 
1$ GMANID DATASC,PATDAT,O, 377, 0,377,NO 
TRAP C$GMAN 
BR 1 
-WORD PATDAT 
. WORD $c 
-WORD ODATASC 
. WORD 377 
. WORD T$LOLIM 
. WORD TSHILIM 
10000$: 
= 1$ ;sRETRY IF ERROR 
MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
RTS PC ;RETURN TO CALLER 


3 ¢ 
;LOCAL DATA AREA 
3° 


PATDAT: 
DATASC: 


. WORD ; TEMPORARY STORAGE FOR DATA 
-ASCIZ ; 
EVEN 


0 
‘ENTER DATA PATTERN 


BY 
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SE@ 105 
MENU AND GET OPERATOR RESPONSE 


Ta TK-25 FRT END FUNC @3 
GETSEL - ISSUE 


sy: .-SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3° 
3628 sROUTINE TO ISSUE A MENU AND GET 
3629 3 THE OPERATOR'S RESPONSE. 
3630 s INPUTS: 
3631 ' 
36 : RO ADDRESS OF ASCIZ STRING OF MENU 
3635 ’ RY MAXIMUM ALLOWABLE OPERATOR RESPONSE 
acs sOUTPUTS: 
4 
ty ; RO NUMBER OF THE OPERATOR'S SELECTION 
iw 
3638 021176 GETSEL:: 
3639 021176 SAVREG sSAVE GENERAL REGISTERS 
3640 021202 010002 1] RO,R2 sSAVE THE MENU ADDRESS 
3641 021204 010203 18: MOV R2,R3 sSTART OF MENU STRING 
3642 1206 005713 2s: TST CR3) sEND OF ASCII ? 
3643 021210 001412 EQ 38 sBRANCH IF ALL LINES DISPLAYED 
021212 PRINTF @SELASC,C(R3S)> SOTSPLAY THE MENU 
O21l21i2 012346 MOV CRS)>, -C SP) 
021214 012746 021362 MOV @SELASC, -(SP) 
021220 012746 000002 MOV @2,-(SP) 
021224 010600 MOV SP, 
021226 104417 TRAP CSPNTF 
021230 062706 000006 » SP 
3645 021234 000764 BR et 
3646 021236 38; GMANID MENASC .MENRES.O,-1.0,-1.NO 
021236 104445 TRAP C 8GMAN 
021240 000406 3R 100018 
021242 021416 -WORD MENRES 
021244 . WORD TSCODE 
021246 021367 -WORD MENASC 
021250 177777 . WORD -1 
021252 000000 . WORD TSLOLIM 
021254 177777 . WORD TSHILIM 
021256 100018; 
3647 021256 BNCOMPLE TE 18 sRETRY IF ERROR 
021256 103352 BCC t 
3648 021260 013700 021416 MOV MENRES ,RO sGET THE OPERATOR'S REPLY 
3649 021264 020001 CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
3650 021266 101411 BLOS 5% sBRANCH IF OK 
3651 021270 PRINTF @MENERR sO0ISPLAY ERROR MESSAGE 
021270 012746 021314 Vv @OMENERR, -( SP 
021274 012746 000001 MOV #1, -¢ 
021300 010600 ] RO 
021302 104417 TRAP CSPNTF 
021304 062706 000004 ADO 04 ,SP 
3652 021310 000735 eR is sRETRY 
3653 021312 000207 5%: RTS PC sRETURN TO CALLER 
3654 021314 045 116 MENERR: .ASCIZ ‘NBA eee Menu Selection Too Large eee’ 
3655 021362 045 116 SELASC: .ASCIZ ‘sNsT’ 
3656 021367 105 156 MENASC: .ASCIZ ‘Enter Menu Selection: ' 
3657 EVEN 
3658 021416 000000 MENRES . WORD 0 


104450 
103411 
012746 


i¢ 


. SBTTL 


C9 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


i 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


’ 
3s INPUT; 
: 
i 


a 
sOUTPUT;: 


CARRY 


: 
sSIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
OS anton IF MANUAL INTERVENTION IS NOT 


CHKMAN: : 


1%: 
045 NOMAN: 


0 MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


SAVREG s;SAVE THE REGISTERS 

MANUAL 3;SEE IF MANUAL INTERVENTION OK 
TRAP C&MANI 

oe te ;B8RANCH IF ALLOWED 

PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN, -( SP) 

MOV #1, -CSP) 

MOV SP RO 

TRAP CSPNTF 

ADO ° 

CLC ;CLEAR CARRY FOR ERROR 

RTS PC ;RE TURN 

-ASCIZ ‘SNBA ee¢ Manuel Intervention not Allowed - Test Aborted eee’ 


-even 


SEQ 106 


D9 





FaseRR TK ep riB RRP bYREN Ber rc BARRP M1200 20-APR-84 08:15 PAGE 80 SEQ 107 
seen .SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
’ 
te : SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
; 
3697 021550 ENVIRN: MEMORY RO 
021550 104451 TRAP CSMEM 
3698 021552 010037 003072 MOV RO, FREE s GET 1ST FREE ADDRESS... 
3699 021556 062737 000002 003072 ADD @2,FREE 
3700 021564 011037 003074 MOV CRO) ,.FRESIZ 3...AND WORD COUNT. 
3701 021570 162737 000004 003074 SUB 04 ,FRESIZ 
3702 021576 013702 002012 MOV LSUNIT,R2 ; GET NUMBER OF UNITS 
3703 021602 162737 000007 003074 10%: SUB 07 ,FRESIZ s TAKE AWAY 7 WORDS PER UNIT 
3704 021610 005302 DEC Re 
3705 021612 001575 BNE 108% 
3706 021614 013700 003072 MOV FREE ,RO sGET FIRST FREE ADDRESS 
3707 021620 063700 003C74 ADO FRESIZ,RO sPOINT TO LAST FREE ADORESS 
3708 021624 162700 000002 SUB #2,RO sBACKUP 1 WORD 
3709 021630 010037 005076 MOV RO,FREEHI sSTORE LAST FREE ADDRESS 
3710 021634 000207 RTS PC sRE TURN 


ce kee TK-25_FRT 


KTINIT 


- SETUP 


KTLI Me 


012716 
000002 


010037 
000207 


003100 
003102 
002120 


021754 
177572 
002120 
000177 
000004 
172340 
077406 


000200 
002000 


+ 
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001577 


000004 


003100 
003100 


177740 


3;¢ 


. SBTTL 


KTINIT 


a 
sROUTINE TO INIT KT-11 


KTINIT: 


1%: 


2s: 


6%: 
9%: 


KTFLG 

K TENABLE 
eee: 
BPERRVEC ,RO 
@2% , BOERRVEC 
8eSRO 


LSHIME ,KTFLG 
0177,KTFLG 
RO, B@ERRVEC 
RO 
@KIPARO,R1 


RO,CR1)> 


is 

#177600, -(R1) 
9% 

06% ,(SP) 


RO, BOERRVEC 
PC 


- SETUP 


KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
ant TEST >26K FLAG 


T ENOUGH MEMORY (>28K)? 


NO. 
SAVE OLD ERR = PTR. 
EC PTR 


(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE an GATA. ERR VEC PTR. 


RO = 

Ril = KI REGS PTR. 

SET DESCRIPTOR REG. 
SET KIPAR REG. 

BUMP AR DATA BY “4K”. 
AT “I/0"? 


NO. 
YES. SET KTPAR7 FOR I/0. 


SET UP RETURN 
RTI TO NEXT LOCATION 


RESTORE OLO ERR VEC PTR. 


SEQ 108 


rg 


TK K-25 FRT END FUNC 03 MACRO M1200 20-APR-84 :13 PAGE 
BROTECTION TABLE — 7 a 
3765 .SBTTL PROTECTION TABLE 
3766 021770 oT 
021770 L$PROT:: 
3767 021770 177777 #+%177777 «177777 -WORD  -1, -1, -1, -1 sNO DEVICE PROTECTION REQUIRED. 
3768 022000 ENOPROT 


3769 


022132 


fAltta ive section © °° 


005672 
003106 
003102 
002246 


000036 
002150 
003060 
002150 


003150 
040000 


000035 


000037 


002162 


G9 
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002146 


002012 


003150 


-SBTTL INITIALIZE SECTION 


see 
;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


5 

;IF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

3 

gee 


3° 
s INSERT TEMPORARY JUMP TO ODT 


BGNINIT 
anne 
MOV EPRT1, EPRTSW 3;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR K TENABLE ;CLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF #€F .CONTINUE 
V @EF . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLETE 18% 
BCC i$ 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 43 38R IF NO. 
TST OUFLG sDROPPED UNIT? 
BMI NXTU ;B8R IF YES 
MOV UNITN,R1 
ASL Ri 
TST ERTABLC(R1) 
BEQ SETU 
BIT @BIT14,ERTABLC(R1) ;OROPPED? 
BNE NXTU 
EXIT INIT 300 NOTHING IF “CONTINUE”. 
TRAP CsExIT 
. WORD 10030-. 
18: READEF #€F .NEW 
MOV @EF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE NXTU ; TAKE NEXT UNIT IF NOT NEW PASS. 
BCC NXTU 
READEF @€F .START 
MOV @€F .START,RO 
TRAP CSREFG 
BCOMPLETE 2$ 
Bcs 2s 
READEF @€F .RESTART 
MOV @EF .RESTART,RO 
TRAP CSREFG 
BNCOMPLETE 318 
cc 318 
2s: 31ST PASS, BUS-INIT... 
RESE ;BUS RESET. 
TRAP CSRESET 
CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 


SEQ@ 110 


H9 


25.F FUNC 03 M -APR - p : 

GEISGA, TS c28e EBT GENO FUNC MACRO M1200 20 84 08:13 PAGE 83-1 SEQ 111 
3812 022136 005037 002170 CLR FATFLG ;RESET FLAG TO ZERO “FATAL ERRORS” 
3813 022142 005037 003332 19s: CLR SKIPT ;CLEAR THE SUBTEST “SKIPPER” 
3814 022146 203: 

3815 022146 012737 177777 002152 MOV @-1,QVvP QUICK VERIFY. 
3816 022154 004737 021550 JSR PC, ENVIRN ISET ENVIRONMENT 
3817 022160 004737 021636 JSR PC KTINIT ; INITIALIZE KT MEMORY MANAGEMENT 
3818 022164 012700 003130 MOV @ERTABL ,RO 
3819 022170 005020 30s: CLR (RO)> ;CLEAR THE ERROR TABLE 
022172 020027 003330 CMP RO, CERTABE 
3821 022176 103774 BLO 30 
3822 022200 000404 BR as 
3823 022202 005037 002152 31s: CLR ave 
3824 022206 000137 022256 eP PASRPT ;GO REPORT THE STATUS 
3826 022212 4s: 
3827 022212 012737 177777 002150 NEWPAS: MOV @-1, UNITN ;INIT UNIT NUMBER 
3828 0222 002166 CLR DEVCNT ;CLEAR COUNT OF DEVICES RUNNING 
3829 022224 NXTU: BREAK 
022224 104422 TRAP CSBRK 
3830 022226 005237 002150 INC UNI TN ;...AND SET NEXT UNIT NUMBER. 
3831 022232 023737 002150 002012 CMP UNITN,LSUNIT 
3832 022 103423 BLO SE TU 
3833 022242 012737 177777 003060 MOV @-1,0UFLG 
3834 022250 1 BR 118 
3835 022252 N ;ABORT, NO MORE UNITS. 
022252 100444 TRAP  C$DCLN 
3836 022254 000240 118: 
3837 022256 PASRPT: 
3838 022256 023727 002012 000001 LSUNIT, #1 ;MOW MANY UNITS SELECTED? 
3839 022264 101752 BLOS $ NEWPAS ;8R IF ONLY 1 
3840 022266 005737 002166 TST DEVCNT ;ARE ANY STILL RUNNING? 
3841 022272 001747 BEQ NEWPAS :8R IF NO 
3842 022274 RFLAGS 
022274 104421 TRAP  CSRFLA 
3843 022276 032700 000100 BIT @ISR,RO ;SHOULD WE PRINT STATISTICS 
$844 022302 001343 BNE NEWPAS ;BR IF NO 
022304 DORPT 
022304 104424 TRAP  CSORPT 
3847 022306 000741 BR NE WP AS 
3848 022310 108: 
3850 022310 SETU: GPHARD UNITN.RO ;GET UNIT N P-TABLE POINTER. 
022310 013700 002150 MOV UNITN_RO 
022314 104442 TRAP sC8 
3851 022316 BNCOMPLETE NXTU ;8R IF UNIT NOT AVAILABLE. 
022316 103342 Bcc NXTU 
3852 022 005037 003060 CLR DUFLG ;CLEAR “DROPPED” FLAG. 
3853 022324 005237 002166 INC DEVCNT 
3854 022330 012001 MOV (RO)+,R1 :GET 1ST REGISTER ADDRESS. 
3855 022332 010137 002154 MOV R1,CSRADOR ;ADORESS OF REGISTERS OF UNIT UNDER TEST 
3857 022336 012001 MOV CRO)+,R1 :GET VECTOR ADDRESS. 
3858 022340 011002 MOV (RO), R2 ;GET INTERRUPT PRIORITY 
3859 022342 010237 002160 MOV R2, IPRI ;SET INTERRUPT PRIORITY. 
3860 022346 010137 002156 MOV R1.IVEC ;SET INTERRUPT VECTOR POINTER... 
3861 022352 012721 017102 MOV @INTR,CR1)> VECTOR... 


25 FRT END FUNC @3 
Tait aL Le “ZECTION 


3862 022556 
3864 022360 


010221 


013701 


3005 
0101357 
012737 


012700 
104441 


104411 
045 


003062 
002154 


000000 
017312 


003062 
177777 


116 


003130 


003060 


MOV 


TST 
BEQ 


19 
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R2,(R1)> 


QvP 
S$ 


SEG 112 


s...AND PRIORITY. 


siST PASS ?? 
sNO, SKIP THE PASS 1 STUFF. 


: 
s1ST PASS, CHEC® THAT DEVICE ADDRESSES ARE VALID, AND 


3 THAT 


108: 


2s: 


+ 
sF INALLY, 


3 
5$: 


L100350: 


045 PUIT: 


SETPRI 
MO 


TRAP 
-ASCIZ 


UNITN,R1 


THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


R 
1 Hae s-ERTABLC(R1) ;SAY DEVICE RUNNING 


—* #1 


-1,D0UFLG 
@PRIOO 


CsINIT 


s;CLEAR ERROR EXTENSION FLAG. 
;sARE WE TESTING MULTIPLE UNITS? 
;6R IF NO. 

sYES -- GET OPERATOR FLAGS. 


sSHOULD WE PRINT UNIT @? 
;6R IF NOT 
:PRINT THE UNIT @ 


sADDRESS OF FIRST REGISTER 

sSTART OF REGISTERS 

sADORESS OF TSSR REGISTER 

tong BOTH CONTROLLER REGISTERS... 
.AND BR IF ALL OK. 

iFLAG DEVICE AS hasan EXISTENT 

sDROP THIS UNIT 


SET CPU PRIORITY AND WE'RE DONE. 


sENABLE INTERRUPTS. 


/OQNENBAceees TESTING UNIT SD28A sesee/ 


CZTKGA TK-25 FRT END FUNC 05 
ADO 


AND DROP UNITS SECTIONS 


3937 


104452 


012737 


100000 
040000 


022626 
000002 
000006 


116 


177777 


140000 
000240 


022732 
000002 


000006 


JI 
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003130 
003130 


045 


003060 


003130 
000240 


18: 


L10031: 


see 


: 


.SBTTL ADD AND DROP UNITS SECTIONS 


UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 


MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 


ASL Ri ; MAKE IT A WORD INDEX 
BIS #100000, EERTABL(R1) ; SET THE “ACTIVE” BIT 

Ic 40000, ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF 18%,R0 

Vv 0,-CSP) 


TRAP CSPNTF 
» SP 
EXIT AU 
J$ IMP 
L10031-2-. 
ASCIZ /sSNSA UNIT SOSA ADDED/ 
EVEN 
ENDAU 3; UNUSED. 
TRAP CsAU 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE “DROPPING”. 
“DROPPED” UNITS AKE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
COMMAND, OTHERWISE REMAIN INACTIVE. _ “DISPLAY” COMMAND 
WILL PRINT ALL 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


THIS IS JUST TO TELL THE MAN. 


DROPPED UNITS, AND THE P-TABLES OF THOSE 


BGNOU 

MOV @-1,0UFLG 

MOV RO,R1 

ASL Ri 

BIS #140000 ,ERTABL(R1) ; SAY DROPPED 

ve es 240 s 222222222 
PRINT @1%,RO0 
Vv RO, -( SP) 

MOV @2,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADO 06 , SP 

EXIT 

-WORD J$JMP 

-WORD 1L110032-2-. 


SEQ 115 


85" 


FRT E 
UNITS 


045 


104455 


012705 
004737 
103420 
012727 
000000 
013727 
000000 


“Sections 


116 


000550 
017134 
000372 
002116 
177772 
177756 


020170 


045 18: 


-ASCIZ /SNSA UNIT SDSA DROPPED/ 
.EVEN 
L10032: 
TRAP Cs0u 
see 
; AUTO-DROP CODE SECTION. 
gee 
BGNAUTO 
LSAUTO:: 
MOV #360. ,R3 
10$: JSR PC ,WAITF 
BcS 20% 
DELAY 250. 
MOV 250. ~C PC) 
MOV "Puntiensteees 
DEC -6(PC) 
BNE - 
DEC -22(PC) 
BNE .-20 
DEC R3 
BNE 10$ 
JSR PC ,CKDROP 
208: 
ENDAUTO 
L10033: 
TRAP CsAUTO 


K9 
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sENOUGH TIME FOR 2400’ 
;WAIT FOR SSR TO SET 

sLEAVE WHEN SSR IS SET 
;sWAIT FOR .25 SECONDS 


;BUMP COUNTER DOWN 
;KEEP GOING 
;TRY AND DROP UNIT 


; UNUSED. 


REEL TO REWIND 


SEQ 114 


s 


ZTKGA TK-25 FRT END F r) MACRO M1200 20-APR-84 08:13 PAGE 85 SEQ 115 
LEAN-UP REPORT. CODING SECTION 
Sone .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
3957 see 
3958 ; THE CLEANUP CODING SECTION yw THE wine, THAT IS 
3959 ; EXECUTED AT THE END OF EACH PASS 2 SUB-PASS). 
Seek ; USE TO RETURN DEVICE UNDER Test TO A NEUTRAL STATE. 
3 - = 

3962 023040 BGNCLN 

023040 LSCLEAN: : 
3963 023040 005737 003060 TST DUFLG ; “DROPPED” FLAG IS SET ON.. 
3964 023044 100407 BMI 1$ .AND GROSS CONTROLLER FAULT. 
Seen + DON: T TRY TO XCT CLEANUP CODE. 
3967 023046 013705 002154 MOV CSRADODR ,RS 3s ADDRESS OF TSV REGISTERS ON UNIBUS 
3968 023052 012765 000000 000000 MOV #0, TSSRCRS) :00 SOFT INIT 
3969 023060 004737 017134 JSR PC ,WAITF 
3970 023064 1$: 
3971 023064 2s: ENDCLN 

023064 L10034: 

023064 104412 TRAP CSCLEAN 
3972 see 
3973 ; THE REPORT CODING SECTION CONTAINS THE 
the ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 

3 - <= 

3976 023066 BGNRPT 

023066 LSRPT:: 
3977 023066 PRINTS @DEVSUM 

023066 012746 023330 MOV @DEVSUM, -C SP) 

023072 012746 000001 MOV #1,-CSP) 

023076 010600 MOV SP ,.R 

023100 104416 TRAP CSPNTS 

023102 706 000004 
3978 023106 010246 MOV R2,-CSP) 
3979 023110 010 MOV R3,-CSP) 

O23112 O11 MOV R4,-CSP) 
3981 023114 012704 003130 MOV @ERTABL ,.R4 : GET START OF ERROR TABLE. 
3982 023120 CLR Re ; CLEAR UNIT NUMBER 
3983 023122 011402 1$: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
3984 023124 001467 BEQ 4% ; ZERO IF UNIT NOT RUN 
3985 023126 100066 BPL 4$ 
3986 023130 032702 040000 BIT @BIT14,Re :; WAS UNIT DROPPED? 
3987 023134 001015 BNE es ; BR IF YES 
3988 023136 042702 170000 C @tC7777,.Re2 ; GET ERROR COUNT FIELD 
3989 023142 PRINTS @DEVONL,R3,R2 ; PRINT 

023142 010246 V 2.-¢ 

023144 010346 MOV R3,-CSP) 

023146 012746 023365 MOV VONL , -C SP) 

023152 012746 MOV #3,-¢€S 

023156 O11 MOV SP ,RO 

023160 104416 TRAP CSPNTS 

023162 062706 000010 ADD #10,SP 
3990 023166 000446 BR 4$ 
3991 023170 020227 160000 2s: CMP R2, #160000 3; WAS UNIT NON-EXISTENT? 
3992 023174 001012 NE ; BR IF NO 
3993 023176 PRINTS @DEVNXR,RS 

023176 010346 MOV R3,-CSP) 


023200 012746 023435 MOV @DEVNXR, -C SP) 


3998 
4000 


000002 


160001 


023517 
000002 


3$; 


30$: 


4$: 


MOV 
MO 


M9 
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012746 
010600 


@2, -(SP) 


; WAS UNIT NOT READY AT STARTUP? 
; BR IF NO. 


ta 


CSP)+,R4 
CSP )+,R3 
CSP)+,Re 
; UNUSED. 


CSRPT 


/@NSADEVICE STATUS SUMMARY :sN/ 

/$A UNIT SD38A ONLINE, ERRORS = SDSN/ 

/$A UNIT SO038SA OROPPED, NON-EXISTENT REGISTERSN/ 
/$A UNIT S058A DROPPED, NOT READY AT STARTUPSN/ 
/$A UNIT SD38A DROPPED, ERRORS = sSDsN/ 


SEQ 116 


N9 


sec, IK: FRT be RNR UNC @3 MACRO M1200 20-APR-84 08:13 PAGE 86 SEQ 117 
4042 .SBTTL TEST 1: SPACE RECORDS 
et ; 
4045 ‘THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
4046 sRECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 
4047 ;OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING ER T MARKS 
4048 :IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
4049 : D HA EN CESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
4050 ;sRESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 
4051 ;0F THE ESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 
4052 ;0F VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
4053 sRECORD INDICATE THAT RECORD’S RELATIVE POSITION ON TAPE. AFTER 
4054 ;EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
4055 ; THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
4056 ;THE EXPECTED RESULT. 
4057 ; 
4058 ; 
rests ;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 
+ 
4061 ‘ 
4062 ; 
4063 g- 
4064 023650 BGNTST 
023650 Tl: 
4065 023650 005037 002170 CLR FATFLG wr FATAL ERROR FLAG 
4066 023654 5037 0031 CLR KTFLG sHOLD OFF KT1i1 
4067 023660 012737 005771 002146 MOV GEPRT2,EPRTSW ; SECONDARY ERROR MESSAGE 
4072 023666 00473 020 JSR PC, KTOFF ;00N‘ T NEED LOTS OF MEMORY 
4073 023672 012700 031462 MOV eTST2S5ID, RO SASCII MESSAGE TO IDENTIFY TEST 
4074 023676 004737 017424 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
rod 023702 012737 2 002164 MOV 02, LOOPCNT ;PERFORM 2 ITERATIONS 
3¢ 
4077 : 
4078 ;TEST 1, SUBTEST 1 
4079 ; 
4080 ; 
4081 ;VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
4082 ;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
peony ;THE VOLUME CHECK (VCK) FLAG IS SET. 
é 
4085 ; 
4086 ;- 
4087 
4088 023710 T25LO00P : 
4089 023710 BGNSVUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
023710 Ti.1: 
023710 104402 TRAP CsBSU8 
4090 023712 004737 031500 JSR PC, T2SREST :;SET COMMAND PACKET 
4091 023716 005037 030270 CLR T2S5SCNT :;CLEAR THE RECORD COUNTER AREA 
4092 023722 004737 031572 JSR PC, T2SRT2 ;SET UP OTHER COMMAND PACKET 
4093 023726 004737 031634 JSR PC, T25RTS ;SET UP OTHER COMMAND PACKET 
poses 023732 012737 176750 030272 MOV #65000. , T25DLY ;SET UP LOOP COUNTER 
rete 5 946466666466646646046466460046464646646460464000460000646004646600466000404004040400086 
4 ; 
4098 ;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


1: 


SPACE RECOROS 


024076 


004737 
103427 


012727 
000000 
013727 


011676 


012704 


See TK-25 FRT END FUNC @5 


016660 


000250 
002116 
177772 
177756 
030272 


030110 


010342 
020116 


020170 
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89 OO666 686666886665 OO644666646ES$SOOOOHEEEEESEHEEEEEEEEEEEEEEEEEOEEEOE 
5$; JSR PC ,SOF INIT 100 INITIALIZE "as CONTROLLER 
BcsS 108 s56R IF INIT WAS OK 
DELAY 250 sDELAY IF REQUIRED 
MOV easels 
DEC -6(PC) 
BNE ewe 
DEC -22CPC ) 
BNE -* 
DEC T250L Y s0EC DELAY COUNTER 
BNE 53 sB8R, IF LOOP IS REQUIRED 
~ SR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV TSSRCRS),R1 sCONTENTS OF TS R REGISTER 
ERRDOF ERRNO,SFIERR,SFIMSG sFATAL ERROR TS.R WAS NOT OK 
TRAP CSEROF 
° 101 
-WORD SFIERR 
-WORD SFIMSG 
108: 
MOV @T2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


) 
8 9O866O88 0686860466888 6 684086848546 O6 SSO S68SOOHOSSH HOO EOSEHSEEEESE 


JSR yt "abe s ISSUE WRITE CHARACTERISTICS 
6cs ;BR, IF COMMAND ISSUED OK 
JSR PC.FATCH sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 i SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILEV 
TRA CSERHRO 
-WORDB 102 
.WORD WRTMSG 
-WORD SFIMSG 
5 
CHECK FOR DRIVE OFF -LINE 
i 
14%; MOV TSSRCRS),R1 sREAD THE TSSR 
BIT @OFL ,R1 sCHECK FOR DRIVE OFF LINE 
BEQ 15% s8R, IF ORIVE IS ON LINE (GOOD) 
ERROF ERRNO, T210FL ,EXPREC s"ORIVE IS OFF-LINE” (BAD) 
TRAP —— 
-WORD T210FL 
JSR PC ,CKDROP 3TRY AND DROP UNIT 


§ 9206060666068 6666666686666 68664F6564444SHFOOSHS HOH 4HHHHHEHHEHHEEEEEO 
i 
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a1at 1s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
: 
4148 F FSSSSSHSHSHSSEHASHSHESEASEHEHESEEHASESEEEHEEEESE FOO OEOEEEEOKEEEEEEEE 
4149 
4150 024102 004737 010444 158: JSR PC ,REWIND sCALL TAPE at oo 
4151 0241 103407 BcS 308 s8R, . NO PROBLE 
4152 024110 010001 MOV RO,R1 SAVE T 
4153 024112 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4157 024116 ERRHRD ERRNO, T2SRWN,.PKTSSR y REWIND NOT ACCEPTED 
024116 104456 TRAP CSERHRD 
0241 000150 . WORD 104 
024122 031267 . WORD T25RWN 
024124 011710 . WORD PKTSSR 
4158 024126 308: CKLOOP sLOOP IF SELECTED 
— 024126 104406 TRAP CSCLPi 
4160 B PSSOHSSHHHSHAHASHESESESEHOASHESESEHEHEOEEHEEEEOEEEEEEHEEHEOEOEEEEEES 
4161 : 
tr | sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
: 
4164 8 9260666666666 6060666668666 666666668666 606666666066666666666666664646666 
4165 
4166 024130 013701 030136 MOV T25BFR+6,R1 sPICK UP xSTO 
4167 024134 010102 MOV Re sSET UP EXPECTED 
4168 0241 052702 000002 BIS @BIT1,R2 sSET BOT SIT IN EXPECTED 
4169 024142 020102 ~R2 sD0ES EXP = REC'D 
4170 1 001406 BEQ 40% ;BR, IF EQUAL ( 
4171 0241 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4175 024152 ERRHRD ERRNO, T2580T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
024152 104456 TRAP CSERHRD 
024154 000151 . WORD 105 
024156 030457 . WORD T2580T 
024160 016360 . EXPREC 
4176 024162 403: CKLOOP ;L00P IF SELECTED 
024162 104406 TRAP CSCLPi 
4177 024164 012703 000400 MOV 256. ,R3 sRECORD SIZE 
aire 024170 013737 003072 030242 MOV FREE, T25R6 sSTARTING WRITE BUFFER ADDRESS 
rere PeOeSESEREAEARSEHSSEHESRAKSHHEHARHEHHKHASAHEAHHHRHEHHEHKEHAABEHKHHHKOAKAEBAHRHEDE 
: 
osak sWRITE DATA,ACK,CVC*1 COMMAND 
3 
sian PPSHHAHRHHHHAHKHEHEAHOEEHEHEHDEHRESEHRAROREEHEEHHAAHLOEHCHEAHEHRERSARDREHAOHRAHEBSD 
4186 024176 012737 140005 030240 MOV #140005, T25PK5 sWRITE DATA,ACK,.CVC*1 COMMAND 
4187 024204 012704 030240 MOV @T25PKS,R4 3;SET UP R4 WITH PACKET ADORESS 
4188 024210 65%: 
4189 024210 010337 030246 MOV R3,T25S2Z ;SET UP RECORD SIZE IN PACKET 
4190 024214 013777 030270 156650 MOV T2SCNT , FREE sLOAD UP RECORD COUNTER IN WRT BUFFER 
4191 024222 062737 1 030270 #1, T2S5SCNT 3sGET READY FOR NEXT RECORD 
4192 024230 010465 177776 MOV R4, TSDBC(RS) sISSUE COMMAND 
4193 024234 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4194 024240 016501 MOV TSSR(RS), Ri 3GET TSSR CONTENTS 
4195 024244 012702 000200 MOV @SSR ,R2 3;SET UP EXPECTED 
4196 024250 020102 CMP R1,R2 ;ARE THEY EQUAL 
4197 024252 001411 BEG 75% ;6R, IF OK 
4198 024254 032701 000004 BIT oBIT2.R1 1 CHECK FOR TAPE STATUS ALERT 


SPACE RECORDS 


024260 
024262 


001014 
004737 


013701 


CZTKGA TK-25 FRT END FUNC @3 
TEST il: 


920116 


001000 
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BNE 120% 
JSR PC ,.FATCHK 


ERRSOFT ERRNO, WRTERR,PKTSSR 


738: CKLOOP 


INC RS 

CMP #512. ,R3 
BNE 658 

BR 125% 


1208: 


sBR, IF TSA IS SET te. ee IS E€OT) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 
sTSSR INCORRECT AFTER WRITE DATA 

TRAP — 
1 


. WORD 
-WORD WRTERR 
-WORD PKTSSR 


TRAP CscLP1 


sLOOP IF SELECTED 


sBUMP RECORD SIZE 

sEND OF RECORD YET 

3BR, IF MORE RECORDS TO WRITE 
sENOUGH RECORDS 


S SSSSASSASSHHSSKSSAHHHSASHSSASASSSSEASESEEEEEESEEEHEEEEEHEHAEEEEEEEEESD 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


8 
FPSHRAHAHAAHESRABRRASSSSHEHEHARERASHAEASHEAHEHEAHAHAHHEHEHREEASEHAREDRHEREAHS 


MOV T25BFR°6,R1 
R1,R2 


MOV il, 

BIS @BITO,R2 

CMP R1,Re2 

BEQ 125% 

JSR PC ,.FATCHK 

ERROF ERRNO, TOSNET,EXPREC 


47a CHECK FOR EOT SET 
sSET XPECTED 


iSET THE EOT BIT XSTO 

:IS THE EOT BIT SET IN XSTO 

3BR, IF SET (GOOD) 

s INC AND CHECK FOR MORE THAN 25 ERRORS 
:DEVICE FATAL NOT EOT FOUND ETC. 
TRAP CSERDF 


"WORD 107 
-WORD T2SNET 
-WORD EXPREC 


CZTKGA TK-25 FRT END FUNC @3 


TEST 


024344 


024410 


1: SPACE RECORDS 


000 
031267 


104406 


010444 


020116 


002170 
020170 
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000031 


1258: 


SEQ 121 


§ POSH HSHADHASASEEEAAEAOSAEASEEEESESESASERESCEREEAEEEEEEEEEEDEEEEEOESE 


’ 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


5 
BOSH HAHAHABRHEHAAHSAHAHADAHAAOHAAASAHRARADEHHAHEAHAAEAREHAAAKEHEHEEHREREDES 


JSR PC ,REWINO 

BcSs 130% 

MOV RO,R1 

JSR PC .FATCHK 

ERRHRD ERRNO, TOSRWN,PKTSSR 
1308: CKLOOP 

ENOSUS 

BLT 999% 

JSR PC ,CKDROP 


999%: 


sCALL TAPE REWIND COMMAND 
OBLEM 


;8R, IF NO PR 
s;SAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 108 
. WORD T2SRWN 
WORD PKTSSR 


;LO0OP IF SELECTED 
TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10037: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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4253 3¢ 
4254 ; 
asa ;TEST 1, SUBTEST 2 
4 
4257 ;sVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
py ies sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 
HY 
4260 ; 
4261 e 
4262 i 
4263 024410 BGNSUBS 3 >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
024410 T1.2: 
024410 104402 TRAP CsBSUB 
4264 024412 004737 031500 JSR PC, T2SREST 3SET COMMAND PACKET 
4265 024416 004737 031572 JSR PC, T25RT2] s;SET UP OTHER COMMAND PACKET 
aaa? 024422 004737 031634 JSR PC, T25RTS 3SET UP OTHER COMMAND PACKET 
4268 PTT TTT TIT rir iti ir itirivitirititiiitiiiyiriiiitititiiTitititiittittt 
4269 ; 
aava s; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
aavk  annsenenesnseenannetatsenenennsnenaseenenanannenneanedneneentes 
427 
4274 024426 004737 016660 JSR PC ,.SOF INIT 300 INITIALIZE ON CONTROLLER 
4275 024432 103407 BCS 10$ ;B8R IF INIT WAS OK 
4276 024434 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4280 024440 010001 MOV RO,R1 ‘CONTENTS OF TSSR REGISTER 
4281 024442 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
024442 104455 TRAP CSERDF 
024444 000155 . WORD 109 
024446 003550 . WORD SFIERR 
024450 011676 . WORD SF IMSG 
aaah 024452 10$: 
nod 024452 012704 030110 MOV @T2SPACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
rye PITT TIT IT iti iyiitirtiiriiritiiititiriitriiirititititiititittTyTirTiTttY ’ 
i 
oe ;WRITE CHARACTERISTICS COMMAND (CALL TO wRTCHR) 
sien  Aanenenbbnreneedeeenenensanbeneneeeenneeneeeennnies 
4292 024456 004737 010342 JSR PC, ,WRTICHR ; ISSUE WRITE CHARACTERISTICS 
4293 024462 103407 BCS 158% ;8R, IF COMMAND ISSUED OK 
4294 024464 004737 020116 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
4298 024470 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4299 024472 ERRHRD ERRNO,WRITMSG, SF IMSG ;WRITE CHARACTERISTISC — 
024472 104456 TRAP CSERHRD 
024474 000156 . WORD 110 
024476 004754 “WORD WRTMSG 
sons 024500 011676 . WORD SF IMSG 
anak S PASOSOESESASEESEEESSESESEOEEEEESEEHEEEOEEEEEEEEEEEEHEEEHEDEEEEEODOD 
3 
ores s; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
4305 ab nakeeheesenbbennbbenenededacedsebnenesnenenaanennneneenesensenet 


G10 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 68-1 SEG 125 
TEST 1: SPACE RECORDS 
4306 
4307 024502 004737 010444 15%: JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
4308 024506 103407 BCS 308 ;68R, IF NO PROBLEM 
4309 024510 010001 MOV RO,R1 sSAVE TSSR 
4310 024512 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4314 024516 ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
024516 104456 TRAP CSERHRD 
024520 000157 ‘ 111 
024522 0351267 , T2SRWN 
024524 011710 ‘ PKTSSR 
4315 024526 308: CKLOOP sLOOP IF SELECTED 
asus 024526 104406 TRAP CSCLP1 
4317 PITTI rrr riviririritirirriiriiiriiiiriitiitiiititiiiiiitititTtTtT 
4318 ; 
ttt sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 
4321 Per TYY TIT irri ririiririiiiriiriititiiriririi titi itrittiitiiiiiiiitity 
4322 
43235 024530 013701 030136 MOV T25BFR+6,R1 sPICK UP XSTO 
4324 024534 010102 MOV R1,R2 sSET UP EXPECTED 
4325 024536 052702 000002 BIS ie ;SET BOT SIT IN EXPECTED 
4326 024542 020102 CMP R1,R2 s00ES EXP = REC’D 
4327 024544 001406 BEQ 40% ;BR, IF EQUAL (OK) 
4328 024546 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN ERRORS 
4332 024552 ERRHRD ERRNO, T25B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
024552 104456 TRAP CSERHRD 
024554 000160 . WORD 112 
024556 0350457 -WORD T2S80T 
4560 016360 -WORD EXPREC 
4333 024562 40%: CKLOOP ;LOOP IF SELECTED 
024562 104406 TRAP CSCLP1 
ake 024564 012737 000001 030242 MOV #000001 , T25RB ;sNUMBER OF RECORDS TO SPACE OVER 
acat § OO OOOO40460606606664668666606664660666606060606060060600600600060000660060006000006 
‘ 
rites sSPACE FORWARD,ACK,CVC=1 COMMAND 
3 
ner eT TTI TIT TitiiriivirrirritiiritiitiitiiritiitiiiiriiiititiiTiTTTiTitT 
1 
4342 024572 012737 140010 030240 MOV #140010, T25PKS3 ;SPACE FORWARD,ACK,CVC=1 COMMAND 
4343 024600 012704 030240 MOV @T25PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
4344 024604 65%: 
4345 024604 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 
4346 024610 004737 017134 JSR » WAITF sWAIT FOR SSR TO SET 
4347 024614 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
4348 024620 012702 000200 MOV SR ,R2 ;SET UP EXPECTED 
4349 024624 020102 CMP R1,R2 ;ARE THEY EQUAL 
4350 024626 001411 BEQ $ 3BR, IF OK 
4351 024630 032701 000004 BIT eBIT2.R1 s;CHECK FOR TAPE STATUS ALERT 
4352 024634 001006 BNE 3 3BR, IF TSA IS SET CSUSPECT IS EOT) 
43535 024636 004737 020116 JSR PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
4357 024642 ERRHRD ERRNO, T2SWOE ,EXPREC ;TSSR INCORRECT AFTER READ DATA 
024642 104456 TRAP CSERHRD 
024644 00016 . WORD 115 
024646 030377 . WORD T2SWOE 
024650 016360 -WORD EXPREC 
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TEE SBRcE heEORDS — 

4358 0246 758: CKLOOP ;LO0P IF SELECTED 
024652 104406 TRAP CSCLPi 

4359 024654 1208: 

4360 

4361 j POHAAEEHEEEESEEEHSEEAESEHESEEESEEEEEEEEEEESEEEEEAEEEEEEESEDEEEEEEE 

4362 : 

ates ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

3 

4365 Wrrirriiiirriiirririiiiitiiriirirtiitititiiiiiiiiiitiiiitititiytttitty 

4366 

4367 024654 013701 030136 MOV T25BFR+6,R1 sQUICK CHECK FOR BOT SET 

4368 024660 010102 MOV R1,R2 sSET UP EXPECTED 

4369 024662 0427 000002 BIC eBIT1,Re2 ;sCLEAR THE BOT BIT CxXSTO) 

4370 024666 020102 CMP R1,R2 sIS THE EOT BIT SET IN xSTO 

4371 024670 001406 BEQ 125% ;8R, IF SET (GOOD) 

4372 024672 004737 020116 JSR PC ,.FATCHK s; INC AND CHECK FOR MORE THAN 25 ERRORS 

4376 024676 ERRHRD ERRNO, T2SBNC ,EXPREC ;BOT NOT CLEARED AFTER SPACE FROM BOT 
024676 104456 TRAP CSERHRD 
024700 000162 . WORD 114 
024702 030752 . WORD T258NC 
024704 016360 .WORD EXPREC 

4377 024706 004737 031634 1258: JSR PC, T2SRTS :;CLEAN UP PACKET 

py be 024712 012737 000401 030246 MOV @257.,T25SZ ;SET THE CORRECT SIZE UP 

4380 j OPOAOEHSEEEEEEESEEEESOEESEESEESESEEEEEEEHEESEEESEEOSEEOEEEEEEEEEEE 

4381 ; 

anak sREAD DATA COMMAND IN PLACE 

3 

4384 Wrirvriririrriririitiitiriiititiiiiitiiitiiiiiiiiiitiiitiitiii itt tty 

4385 

4386 024720 012737 140001 030240 MOV #140001 , T25PKS sREAD DATA COMMAND IN PLACE 

4387 024726 013737 003072 030242 MOV FREE , T25SRB sREAD BUFFER ADORESS TO PACKET 

4388 024734 012704 030240 MOV @T25PK3 ,.R4 3R4 = POINTER TO PACKET 

4389 024740 010465 177776 MOV R4, TSOB(RS) s ISSUE COMMAND 

4390 024744 004737 017134 JSR »WAITF ;WAIT FOR SSR TO SET 

4391 024750 016501 000000 MOV TSSRCRS),.R1 ;GET TSSR CONTENTS 

4392 024754 012702 000200 MOV @SSR, ;SET UP EXPE 

4393 024760 020102 CMP R1,R2 ;ARE THEY EQUAL 

4394 024762 001406 BEQ 1908 ;8R, IF OK ESP. FUNCTION REJECT 

4395 024764 004737 020116 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 

4399 024770 ERRHRD ERRNO,RDERR ,.PKTSSR ;TSSR INCORRECT AFTER READ DATA CMD 
024770 104456 TRAP CSERHRD 
024772 0001635 . WORD 115 
024774 0051 .WORD RDERR 
024776 011710 .WORD PKTSSAR 

4400 025000 1908: CKLOOP sLO0P IF SELECTED 
025000 104406 TRAP CSCLPl 

4401 025002 017701 156064 MOV SF REE ,R1 ;GET FIRST WORD FROM BUFFER 

4402 025006 012702 000001 MOV #1,R2 :;SET UP EXPECTED 

4403 025012 020102 CMP R1,R2 sWAS RECORD NUMBERED 1 

4404 025014 001406 BEQ 2008 ;8R, IF CORRECT RECORD 

4405 025016 004737 020116 JSR PC .FATCHK : INC AND CHECK FOR MORE THAN 25 ERRORS 

4409 025022 ERRHRD ERRNO, T25WNG,EXPREC ;SHOULD HAVE BEEN RECORD NUMBER 1 
025022 104456 TRAP C SERHRD 
025024 000164 . WORD 16 
025026 030667 . WORD T25WNG 
025030 016360 . WORD EXPREC 


4410 025052 
4411 tse 


4412 025034 
4413 025042 
4414 025044 
4415 025050 


TEST I SBRcEReEDROS °° 
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2008: 


999%: 


ENOSUB 


FATFLG, 025. 
999% 


PC ,CKDROP 


SEQ 125 


3>>>>>>>>>>>> END SUBTEST »>>>>>>> >>> 
L10040: 


TRAP 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


CsESUB 


ZTKGA er 


EST 


4465 


4467 
4468 


Sieh REEORDS os 


025112 


025142 
025142 


104402 
004737 
004737 
004737 


011676 


012704 


011676 
104406 


031500 
031572 
031654 


016660 
020116 


030110 


010342 
020116 
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3¢ 
: 
eas 1, SUBTEST 5 


; VERIFIES THAT SPACE RECORDS REVERSE 
;OVER THE FIRST RECORD ON TAPE. 

. 

> 

ie 


CAN SPACE BACK 


SEQ 126 


BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
71.3: 
TRAP Cs6SUB 
JSR PC, T2SREST 3SET COMMAND PACKET 
JSR PC, T2SRT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T2SRTS 3;SET UP OTHER COMMAND PACKET 


8 990006 046600648 6866860646666 6666460 06866608666 6666466646666660664666666666468 


; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
LEHRER AAHESHEAESESHRHERHEREEHAEKAHAHEEREAAHHEHEETAHREEAAHEEAAEAHRHHR HERE HD HH 


JSR PC ,SOF INIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20% ;B8R IF INIT WAS OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsERDOF 
. WORD 117 
P SF IERR 
SF IMSG 
20%: 
MOV @T2SPACKET ,.R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


§ 99028686 68646468 666464686 646464666646684646666466466666664606664646666666664606464464664668 


° 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
PPE SREKHHEREHEAHERAEDERKEHEAHREHHHAHAREEREKHHARAAHMARESAAMED ASHE HOH 


JSR PC, WRTICHR ; ISSUE WRITE CHARACTERISTICS 

BCS 25% ;BR, IF COMMAND ISSUED OK 

JSR ae sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 118 
.WORD WRTMSG 
.WORD SFIMSG 

25%: CKLOOP ;LOOP IF SELECTED 

TRAP Csc.Pl 


8 %426444646464646646464664666666646646464644664646446404646646466660040640640606464666444 


‘ 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


1: 


K10 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 89-1 SEQ 127 
TEST SPACE RECORDS 
5 
j PAAARAAEADEEEEERAEERESEEEESEAEEESEDESEADEESEEAASESEEEEDEEDEREREEES 
025144 004737 010444 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
025150 103407 BCS 30% ;6R, IF NO PROBLEM 
025152 010001 MOV RO,R1 sSAVE TSSR 
025154 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
025160 ERRHRD ERRNO, T2SRWN,PKTSSR ; REWIND NOT ACCEPTED 
025160 104456 TRAP CSERHRD 
025162 000167 -WORD 119 
025164 031267 -WORDB T2SRWN 
025166 011710 -WORD PKTSSR 
025170 308%; CKLOOP sLOOP IF SELECTED 
025170 104406 TRAP CSCLP1 
j RPAAEAAEAAREAEEAEAESEEEAEEAEESEEHEASADEEREASADEADADEAEEEEEDEEDEEDE 
4 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
5 
j PRTAAAEASAAEERESEEESEEREAAREAREREEAEEEREAEEEDEDEEAESEEEEEDEEEEAEDE 
025172 013701 030136 MOV T25BFR+6,R1 sPICK UP XSTO 
025176 010102 MOV R1,Re2 ;SET UP EXPECTED 
025200 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
025204 020102 CMP R1,R2 ;D0ES EXP = REC’D 
0014 BEQ 40$ :BR. IF EQUAL (OK) 
025210 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
025214 ERRHRD ERRNO, T25B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
025214 104456 RAP CSERHRD 
025216 000170 -WORD 120 
025226 030457 -WORDB T2S80T 
025222 016360 -WORD EXPREC 
025224 40$: CKLOOP ;LOOP IF SELECTED 
025224 104406 TRAP CsCLP1 
‘neta semeapecenaes +e Papen nme 
; ISSUE SPACE RECORDS COMMAND - VALUE IN RS SETS NUMBER OF RECORDS 
;BIT 15 SETS OIRECTION - O=FORWARD 1 =REVERSE 
é 
WrervrrriTirrrrrit rrr rit ittriri titi iri irtiriri isi rit iririrriri rr 
025226 012703 000001 MOV #000001 ,R5 sNUMBER OF RECORDS TO SPACE FORWARD 
025232 004737 010144 JSR PC, SPACE ;CALL SPACE COMMAND 
025236 103410 BCS 50$ ;CHECK FOR ERROR 
025240 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
025244 7 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
025250 ERRHRD ERRNO, T25WDE , SFFMSG ; SPACE FORWARD FAILED 
025250 104456 TRAP CSERHRD 
025252 000171 . WORD 21 
025254 030377 -WORD T25WDE 
025256 011756 -WORD SFFMSG 
025260 50$: CKLOOP ;LOOP IF SELECTED 
025260 104406 TRAP CsCLPi 
025262 012737 000001 030242 MOV #1, T2SRB s;NUMBER OF RECORDS TO SPACE OVER 
WrevrTiyrTriy Trt Tritt ii rit ti irrtiritritiitititiiiritiitiriiiiirii ry) 


1: 


SPACE RECORDS 


012737 
012704 


011710 
104406 


012703 
013737 


012737 


Sa TK-25 FRT END FUNC @3 


140410 
030240 


177776 
017134 
000000 


000200 


020116 


000400 
003072 


155430 
000000 


020116 


Li0O 
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030240 


030242 


030240 


‘ 
;SPACE REVERSE ,ACK,CvC=1 COMMAND 


‘ 
§ PHEAASASHASAESASAASEAEALASEASEAASSEEAAEEEASEAESEAAAEAEEEEAEEAEELEEDES 


sSPACE REVERSE ,ACK,CvC=1 COMMAND 


65$: 


758: 


1208: 


MOV #140410, T25PKS 
MOV @T2SPKS ,R4 

MOV R4, Ms «Saat 
JSR PC ,WAITF 

MOV TSSR(RS),R1 
MOV @SSR, 

CMP R1,Re2 

BEQ 75% 

JSR PC FAT 


CKLOOP 


MOV 
MOV 


»FATCHK 
ERRHRD ERRNO, T2S5WDOE ,PKTSSR 


€256. R35 
FREE , T2S5kB 


;SET UP R4 WITH PACKET ADDRESS 
s ISSUE 


;SET UP EXPECTED 

;ARE THEY EQUAL 

;8R, IF OK 

sINC AND CHECK FOR MORE THAN 25 
;TSSR INCORRECT AFTER — DATA 


;LOOP iF SELECTED 


sRECORD SIZE 


;STARTING READ BUFFER ADDRESS 


CRTC RERAHEAHEEMAAREHABAHASERHERALHAAAHREEHAEHOERERHEHARSEEARHADROHRARHEARREE HEE 


‘ 
sREAD DATA,ACK,CVC=1 COMMAND 


2 
§ FSAAASSSASASSSESSASSESAESSERSSASEASOASESEOESEEESESAAEAOEEEEAEAESESALEEES 


1658: 


170$: 


JSR 
ERRHRD 


#140001 , T2SPKS 


TSSR(RS),R1 
@SSR ,R2 


170% 
PC ,FATCHK 
ERRNO, RDERR ,PKTSSR 


Ay = Ri 
00 ,R 
Ri, * 


PC ,FATCHK 
ERRNO, T25WNG,EXPREC 


sREAD DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 


;SET UP gs ty 
Y EQUAL 


OK 
sINC AND CHECK FOR MORE THAN 25 
;TSSR INCORRECT AFTER ee 


. WORD 

. WORD 

. WORD 
;LOOP IF SELECTED 


SEQ 128 


ERRORS 


CsCLP1 


PKTSSR 
CSCLP1 


: TRAP 
GET FIRST WORD FROM BUFFER 


2 

sSET UP EXPECTED 

sWAS RECORD NUMBERED 1 

3BR, IF CORRECT RECORD 

;INC AND CHECK FOR MORE THAN 25 

; SHOULD HAVE BEEN RECORD NUMBER 
TRAP 
. WORD 


eee 
¢ sERHRD 
124 


M10 


GA_TK-25 FR FUNC #3 MACRO M1200 20-APR-84 08:13 PAGE 89-3 
FE ei sBRcE he EOROS — a 
025462 030667 . WORD T25WNG 
025464 016360 WORD EXPREC 
4574 025466 2008: 
4575 025466 ENDSUB 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
025466 L10041: 
025466 104403 TRAP CsESUB 
4576 025470 023727 002170 000031 CMP FATFLG, 25. :IS ERROR COUNT AT 25 
4577 025476 002402 BLT 999$ ;8R, IF LESS THAN 25 
4578 025500 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


4579 025504 999%: 


CZTKGA TK-25 FRT END FUNC @3 


TEST 


1: SPACE RECORDS 


013737 


004737 
103427 


012727 
000000 


011676 


012704 


030270 


016660 


000250 
002116 
177772 
177756 
030272 


000000 
020116 


030110 


N10 


MACRO M1200 20-APR-84 08:13 PAGE 90 


030272 


3¢ 


6 

;TEST 1, SUBTEST 4 
: 

;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 


sMULTIPLE NUMBER OF RECORDS (2 THR 


SEQ 130 


K OR THE 


OUGH 64 
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 
;WHICH EVER IS LESS. 


BGNSUBS 3 >>>>>>>>>>>> x. ee >>>>>>>>>>>> 
TRAP CsBSUB 
JSR PC, T2SREST ;SET COMMAND PACKET 
JSR PC, T2SRT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T2SRTS ;SET UP OTHER COMMAND PACKET 
MOV T2SCNT , T2SCN2 ;HOLD NUMBER OF RECORDS 
SUB #2, T2SCN2 ;ACTUAL NUMBER OF RECORDS ON TAPE 
MOV T2SCNT , TESOL Y ;SET UP REWIND DELAY COUNTER 
f PARARAAAASAASEREASESARESEEAAEESEEEEAEEEEEODEEEEE4EEEEEEEEEEDEEDEEEES 
5 
;ISSUVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
8 
s SARAARARSAAASSASAAASADESASESEASAAAREASEEAEEEEAEEEKEEAREEEARESDALEDES 
10$: JSR PC ,SOFINIT :00 INITIALIZE ON CONTROLLER 
BCS 20$ ;8R IF INIT WAS OK 
DELAY 250 ;WAIT ABOUT .25 SECONDS 
250 .(PC)+ 
-WORD O 
MOV LSDOLY,CPC)-+ 
. WORD 
DEC “GtPC) 
BNE 
DEC "32(PC) 
BNE .-20 
DEC T2S50LY ;DEC COUNTER 
BNE 10$ ;B8R, IF MORE LOOPS REQUIRED 
MOV TSSRCRS),R1 ;CONTENTS OF TSSR REGISTER 
JSR PC ,FATCHK s;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRDOF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 125 
. WORD SF IERR 
. WORD SF IMSG 
20%: 
MOV @T2SPACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


5 4#42446444644644646466446444646644464644646666646040644466466446464646404046444446646646 


‘ 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
4 


CZTKGA TK-25 FRT END FUNC 03 


TEST 


1: SPACE RECORDS 


011676 
104406 


031267 


010337 


012757 
012704 


0137357 


010342 
020116 


010444 


020116 


030266 
177776 


000001 
030242 


140010 
030240 


030266 
177776 
017154 
000000 


000200 


Bil 


MACRO M1200 20-APR-84 06:13 PAGE 90-1 


030240 


030272 


SEQ 151 


8966006666 06660666660666066686666666666666666606666666666666666666646666 


258: 


CKLOOP 


PC ,.WRTICHR 

25% 

PC .FATCHK 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


sISSUE WRITE CHARACTERISTICS 
s6R, IF COMMAND ISSUED Ok 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ~~» 


CSERHRD 
-WORD 126 
-WORD WRTMSG 
-WORD SF IMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


’ 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


j 
8 9000066660866 6668 8504668 ESSE EOSSESOESESSSEHOEEEEEEEEEEEEESEEEEEEES 


46%: 
47%: 


PC ,REWIND 
308 


RO,R1 
PC .FATCHK 
ERRNO, T2SRWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 
sSAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
wORD 


, 127 
-WORD T2SRWN 
.WORD PKTSSR 
sLOOP IF SELECTED 
CsCi.P1 


TRAP 
sNUMBER OF RECORDS ON TAPE 
sMAX IT CAN SPACE OVER 
sWHICH VALUE CAN WE USE 
;8R, IF @ WRITTEN > 64K 
3@ WRITTEN CAN BE USED 
sMOVE ON 
sUSE MAX NUMBER 
3;00N'T GO ALL THE WAY YET 
sNUMBER OF RECORDS TO SPACE OVER 


$ 
sSPACE FORWARD,ACK,CvC*1 COMMAND 


§ OO8O666666606666666606606606866666066666060660666666606666860666066666666666 


#140010, T25PKS 


65%: 


67%: 


@T2SPKS ,R4 


T25CN2, TESOL Y 


TSSR 
@SSR 


758 


C(RS5),R1 
»R2 
R1,R2 


sSPACE FORWARD ,ACK,CvC=1 COMMAND 
sSET UP R4 WITH PACKET ADORESS 


sNUMBER OF RECORDS USED AS DELAY COUNTER 
OMMAND 


3SET UP EXPECTED 
;ARE THEY EQUAL 
36R, IF OK 


4680 


4681 


026006 
026006 


012727 
000000 


013727 
000000 


000200 
030377 
011710 
104406 


012703 
013737 


012737 


FESESA, ISBRCERAEEBRDENS °° 


000250 
002116 
177772 
177756 
030272 
020116 


010000 
003072 


020116 


Cil 
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030242 


030240 


758: 


DELAY 


250 


T2S50L Y 


67% 
PC ,FATCHK 
ERRNO, T2SWDE ,PKTSSR 


#4096. ,R5 
FREE, T25R8 


8 99808 6600606666 66686866866 6666066 60606060666668606866060606860608066 6666686668686 


3 
sREAD DATA,ACK COMMAND 


* 
8 9 OOOO68 6660066660606 666 666860666 666606666688606660606666060666066064666886 


1658: 


1708: 


MOV #100001 , T25PKS 
MOV @T2SPKS 
MOV R3,T25SZ 
MOV R4, TSOBCRS) 
JSR WAIT 
MOV TSSRCRS),R1 
MOV SR ,R2 
CMP R1,R2 
BEQ 708 
BIT eBIT2,.R1 
BNE 708 
JSR PC ,.FATCHK 
ERRHRD ERRNO,ROERR,PKTSSR 
CKLOOP 
MOV OF REE ,R1 
MOV T2SCN2 ,R2 
SUB #1,R2 
CMP R1,R2 
BEQ 200% 
JSR PC FAT 


CHK 
ERRHRD ERRNO, T2SWNG , E XPREC 


SEQ 152 
sDELAY .25 SECONDS 
MOV 0250 ,(PC)>+ 
. WORD ] 
DEC -6( PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
sBUMP DOWN COUNTE 
sBR, IF NOT AT END OF _* 
s INC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER — — 
CSERHRD 
TMORO 128 
. WORD T25WDE 
. WORD PKTSSR 
sL0O0P IF SELECTED 
TRAP CSCLPi 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 
sREAD DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
3sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
3;SET UP EXPECTED 
s;ARE THEY 
3BR, IF OK 
sCHECK FOR TAPE STATUS ALERT 
sIF SET ALL IS WELL 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
ITSSR INCORRECT AFTER — D es 
CSERHRD 
TWORO 129 
.WORD PKTSSR 
sLO0P IF SELECTED 
TRAP CSCLPl 
3;GET FIRST WORD FROM BUFFER 
;SET UP EXPECTED 
SHOULD BE LAST RECORD 
pWAS CORD NUMBERED R5 
;8R, IF CORRECT RECORD 
INC AND CHECK FOR MORE THN 25 — 
} SHOULD HAVE BEEN RECORD NUMBER 
TRAP esemno 
. WORD 130 
“WORD 1 2SUNG 


Dil 


GELYCA, TK-BR- ERT ENR EUNC os MACRO M1200 20-APR-84 08:13 PAGE 90-3 SEQ 155 

026214 016360 . WORD EXPREC 

4725 026216 2008; 

4726 026216 ENDSUB p>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
026216 110042: 
026216 104403 TRAP CsESUB 

4727 026220 023727 002170 000031 CMP FATFLG, 25. s3IS ERROR COUNT AT 25 

4728 026226 002402 BLT 999% sBR, IF LESS THAN 25 


4729 026230 004737 020170 JSR PC ,CKDOROP sTRY TO DROP THE UNIT 
4730 026234 999%: 


013737 


004737 
103427 


012727 
000000 
013727 


003550 
011676 


012704 


GETRCA, Ha + nag RR UNC 3 


34 
030270 


016660 


000250 
002116 
177772 
177756 
030272 


000000 
020116 


030110 


Ell 
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030272 


3¢ 


: 

sTEST 1, SUBTEST 5 
; 

sVERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 


sMULTIPLE NUMBER OF RECORDS (2 


;MAXIMUM 


NUMBER 
sWHICH EVER IS LESS. 


108: 


208: 


MOV 


THR 


OUGH 64K OR T 
OF RECORDS WRITTEN ON THE TAPE 


PC, T2SREST 


T25CNT , T2SCN2 


PC, T25RT2 
PC, T2SRTS 


T25CNT, T2SOLY 


LEHR SSKARAHRARHAAAREHAAAHRHHHAAREHEAESEHHHAADHREDHOHRHAEEHEEHARER HH ADREREHE HEH 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


5 
8 9988068684648 6466666085666660666466666660606666664606666606606666466646668 


PC ,SOF INIT 
20% 
250 


T2S0L Y 


10$ 
A ggare LE R 
PC,.FA 


@T2SPACKET 


1 


TCHKK 
ERRNO, SF IERR,SFIMSG 


RO 


SEQ 134 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T1.5: 


TRAP 
sSET COMMAND PACKET 
sSET UP RECORD COUNTER 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP REWIND DELAY COUNTER 


3:00 INITIALIZE ON CONTROLLER 
3;BR IF INIT WAS OK 
sWAIT ABOUT .25 SECONDS 


sDEC COUNTER 
;BR, IF MORE LOOPS 


Cs6SUB8 


€250,(PC)>+ 
LSOLY,CPC)- 
-6(PC) 


«4 
-22(PC) 
.-20 


REQUIRED 
sCONTENTS OF TSSR REGISTER 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
SFATAL ERROR TSSR WAS NOT OK 
TRAP CsERDF 
-WORD 131 
-WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADORESS 


§ OO O068 4666660666666 666066606666 6666646606066680666664606666064606666464466 


5 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


§ 906 6666666066666466666666666466686666666666606606666606666066466664060686666 


004737 
103407 
004737 
010001 
104456 


000204 
004754 
011676 


104406 


031267 
011710 


104406 


013701 


GETKGA, KB Rce be RNR De ONC os 


010342 
020116 


010444 


020116 


030266 
177776 


258: 


CKLOOP 


PC ,WRTCHR 
25% 
PC ,.FATCHK 


RO,R1 
ERRNO ,WRTMSG, SF IMSG 


Fil 
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s ISSUE WRITE CHARACTERISTICS 
;8R, IF COMMAND ISSUE 

INC ANO 
sSAVE CONTENTS 


OF TSSR 
sWRITE CHARACTERISTISC “---y 


sLOOP IF SELECTED 


8 2068668666 086646 6660606466666 66666666 6066666666666668666666664666666468666 


‘ 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
8 SSSASHSHASSHASSESSSSEHESESHESEESSESHSESEESESEEESEEEEESESEAEEEEEEEEEEEEEAEEEEESE 


PC ,REWIND 
30% 


308: 


JSR 


CKLOOP 


RO 


oR1 
PC .FATCHK 
ERRHRD ERRNO, T2SRWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
;SAVE TSSR 


sINC AND CHECK FOR MORE THAN 25 


; REWIND NOT ACCEPTED 
TRAP 


;LOOP IF SELECTED 


UTI TIT Tiriiririiiiiiiriiiiiritirirriritiiitiriiiiiiiiiiititittyy 
4 

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

p Socensenscoososensoncssencecensonsesoonsacoosonseseosonssoeessoees 
T2S5BFR+6,R1 
R1,R2 
o6IT1,R2 
R1,R2 


40%: 


46%: 
47%: 


MOV 


40% 


PC ,FATCHK 


ERRNO, T2SBOT ,EXPREC 


T2SCN2,R1 


@65554 


. R2 


;PICK UP xSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 


) 
HECK FOR 


sINC AND MORE T 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED 
TRAP 


sNUMBER OF RECORDS ON TAPE 
sMAX IT CAN SPACE OVER 
sWHICH VALUE CAN WE USE 
;8R, IF @ WRITTEN > 64K 

3;@ WRITTEN CAN BE USED 
sMOVE ON 

sUSE MAX NUMBER 


SE@ 155 


ISSUED OK 
CHECK FOR MORE THAN 25 ERRORS 


CSCLPi 


HAN 25 ERRORS 


CSERHRD 
134 


T2S680rT 
EXPREC 


CscCLPl 


Tee I SBRce RetOROS °° 


4830 026510 010337 030242 


4876 026714 
4877 026720 


012737 


000000 
013727 
000000 


162703 
010337 


012737 


016501 
012702 


140010 
030240 


002116 
177772 
177756 
030272 
020116 


030266 
177776 


000001 
030242 


140410 
0 


Gil 
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030240 


030272 


030240 


030272 


MOV R3, T2SRB 


§ FOOSE OSSOEEEESEESEEESEEEEEEEEEEEEEEEEOEEEEEEEEEEEEEEEEEEEHEEEEOEEEO 


: 
sSPACE FORWARD,ACK,CvC=1 COMMAND 


‘ 
§ 9 SO6O866 600866666666 06666666666 66660660666666666666666666666606666 


MOV #140010, T25PKS 

MOV @T25PK3.R4 

MOV R4, TSOBC(RS) 

MOV T2SCN2, TESOL Y 
48%: JSR PC ,WAILTF 

MOV TSSR(RS), Ri 

MOV @SSR ,R2 

CMP R1,R2 

BEG 508 

DELAY 250 

DEC T2S50L Y 

BNE 48% 

JSR PC ,FATCHK 

ERRHRD ERRNO, T2SWDE ,EXPREC 
50$: MOV T25SCN2 ,R1 

MOV 65534. ,R2 

CMP R2,R1 

BGT 558 

MOV R1,R35 

BR 608 
608: SuB @1,R35 


SEQ 136 
sNUMBER OF RECORDS TO SPACE OVER 
sSPACE FORWARD,ACK,CVC=1 COMMAND 
3;SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
;SET UP DELAY COUNTER 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
sWAIT .25 SECONDS 
MOV @250.(PC)> 
. WORD 
MOV malaise 
DEC -6(PC) 
BNE .-4 
DEC -22CPC) 
BNE .-20 


;DEC THE DELAY COUNTER 

;BR, IF COUNTER HASN’‘T EXPIRED 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER wo” > 


CSERHRO 
-WORD 135 
-WORD T2S5wWDE 
-WORD EXPREC 
sNUMBER OF RECORDS ON TAPE 


sMAX IT CAN SPACE OVER 
sWHICH VALUE CAN WE USE 
:BR, IF @ WRITTEN > 64K 
3@ WRITTEN CAN BE USED 


sD0N‘T GO ALL THE WAY YET 
sNUMBER OF RECORDS TO SPACE OVER 


§ SSSASSSHESASHESESESESESOEESESSEESSESHEESHSEEEEEEEESEEEEEEEHEEHEKEAEEEEESESEEO 


; 
;SPACE REVERSE ,ACK,CVvC*1 COMMAND 


+ 
8 9 OSOO 666666666 6666606086606686666066066606606066666606666066066666060606066066066 


MOV #140410, T25PKS3 

MOV @T25PK3,R4 

MOV R4, TSOBCRS) 

MOV T25CN2, T2SOLY 
70%: JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR ,R2 


sSPACE REVERSE ,ACK,CvC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


;SET UP EXPECTED 


4876 
4879 
4880 


027004 
027010 


020102 
001425 
012727 
000000 
013727 
000000 


104406 
012705 
0135737 


0127357 


TET SBRcE“heEOROs °° 


000250 
002116 
177772 
177756 
0350272 
020116 


010000 
003072 


020116 


153752 
000001 


020116 


Hil 
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030242 


030240 


758: 


CMP R1,Re2 

BEQ 75% 

DELAY 250 

DEC — 

BNE 

JSR PC FATCHK 

ERRHRD ERRNO, T2SWDE ,EXPREC 
CKLOOP 

MOV 04096. ,RS 

MOV FREE , T2SRB 


SEQ 137 
;ARE THEY EQUAL 
;8R, IF OK 
sWAIT ABOUT .25 SECONDS 
MOV een 
MOV ae 
DEC re? 
BNE 
DEC “30ceC) 
BNE .-20 
;BUMP COUNTER DOWN 
;68R, IF COUNTER HASN'T EXPIRED 
sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 136 
-WORD T2SWDE 
-WORD EXPREC 
;LOO0P IF SELECTED 
TRAP CSCLPl 


sRECORD SIZE 
sSTARTING READ BUFFER ADORESS 


8 968886866686 068646 8666666666046 666666666668 606666866666666666666646466666 


: 
sREAD DATA,ACK COMMAND 


é 
8 OOS 000666686846 066 666666666866 66 6684466660668 68666866686866666666466686 


165$: 


1708: 


MOV #100001 , T25PKS 
MOV @T25PKS ,.R4 

MOV @177777,R0 

JSR PC .FILLMEM 

MOV R3,T25SZ 

MOV R4, rs oS 
JSR PC ,WAILTF 

MOV TSSR(RS),R1 
MOV @SSR ,R2 

BEG 170% 

BIT eBIT2e,R1i 

BNE 170% 

JSR PC ,FATCHK 
ERRHRD ERRNO,ROERR ,EXPREC 
CKLOOP 

MOV aF REE ,R1 

MOV #1,R2 

CMP R1,R2 

— $ 


JSR PC .FATCHK 
ERRHRD ERRNO, T2SWNH,EXPREC 


;sREAD DATA,ACK COMMAND 

;SET UP R4 WITH PACKET ADORESS 

;SET ALL ONES INTO CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 

;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

;sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

3;SET UP EXPECTED 

;ARE THEY EQUAL 


;BR, IF OK 
S CHECK FOR TAPE STATUS ALERT 
;6R, IF BIT SET 

sINC AND CHECK FOR MORE THA": 25 ERRORS 
;TSSR INCORRECT AFTER —_— 


CSERHRD 
-WORD 137 
-WORD RDERR 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CSCLP1 
;"ET FIRST WORD FROM BUFFER 

;SET UP EXPECTED 


;INC AND CHECK FOR MORE THAN 25 ERRORS 
sSHOULD HAVE BEEN RECORD NUMBER 1 


Til 
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027134 104456 TRAP C SERHRD 
027136 000212 . WORD 138 
027140 031042 . WORD T2S.JNH 
027142 016360 . WORD EXPREC 

4926 027144 2008: 

4927 027144 ENDSU8 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
027144 L10043: 
027144 1044035 TRAP CsESUB 

4928 027146 023727 002170 000031 CMP FATFLG, 25. sIS ERROR COUNT AT 25 

4929 027154 002402 BLT 999% ;8R, IF LESS THAN 25 

4930 027156 004737 020170 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


4931 027162 999%: 


CZTKGA TK-25 FRT END FUNC 03 
SPACE RECORDS 


TES 


T i: 


027162 
027162 
027162 
027164 
027170 
027174 


027224 
027224 


027230 
027234 
027236 
027242 
027244 
027244 
027246 
027250 
027252 
027254 
027254 


011676 


012704 


011676 
104406 


031500 
031572 
031634 


016660 
020116 


030110 


010342 
020116 


Jil 
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3*¢ 


: 
sTEST 1, SUBTEST 6 


3 

;VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE 
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


BGNSUB 


JSR 
JSR 
JSR 


PC, T2SREST 
PC, T2SRT2 
PC, T25RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>> 
71.6: 


TRAP 
;SET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


5 OOO6600006000046660006600466000660066000660066000660000004600000000088 


; 
;ISSUE CONTROLLER “SOFT” INIIIALIZE - CARRY BIT CLEAR IF ERROR 


° 
§ 9982600468488 64646646 46446464666646604666464464666466466646466446464646464646066464646646666 


203: 


MOV 


PC ,SOFINIT 
20$ 
PC .FATCHK 


RO,R1 
ERRNO, SFIERR,SFIMSG 


@T2SPACKET 


RO 


s00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS =~ 


. WORD 
. WORD 
. WORD 


;SUBROUTINE NEEDS PACKET ADDRESS 


82 O246046464046666804866066864646464606666466068464666606464606404646444466646666646446646466 


é 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
SPEER EREARHEAREEHRHEEAHRER EE EHAKEHEBHHHASAMREKREHAKEEKE HAREM EDHEHREHMADKEHR AHS 


25%: 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


CKLOOP 


PC ,WRTCHR 

25% 

PC ,FATCHK 
O,R 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sINC AND CHECK FOR MORE THAN 25 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC — 


;LOOP IF SELECTED 
TRAP 


§ 2946 64464846464446446464646466464646644646464646466446646466464664644646464640664646604604464666688 


SEQ 139 


>>>>>>>> 


C$BSUB 


ERRORS 


ERRORS 


CSERHRD 
140 

WRTMSG 
SF IMSG 


CsCLP1 


CZTKGA TK-25 FRT END FUNC 03 
TEST 1: SPACE RECORDS 


027412 
027414 


011710 
104406 


013701 


104406 
012737 


012737 
012704 


104456 
0002 
030377 


010444 


020116 


100410 
030240 


177776 
017134 
000000 


100206 


020116 


Kil 
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030242 


030240 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


5 
S ASARAAAARAAAASAASSABESASESALASELABAASEABABASABASEEEASDAEAEEEARESEAOEEES 


SEQ 140 


CSERHRD 


JSR PC ,REWINO sCALL TAPE REWIND COMMAND 
BCS 30% sBR, IF NO PROBLEM 
MOV RO, “5 sSAVE TSSR 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2SRWN,PKTSSR ; REWIND NOT ACCEPTED nep 
. WORD 
» WORD 
30$: CKLOOP sLOOP IF SELECTED 
TRAP 


| PPRASEAREADEEEARASEESEEASADEEEAESAREDEEADEAEEAEEDEEEEEEREEEEDEEEEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


« 
i FSASASRASSSASASSSASAASASSSSASASASSEAEEEASALEASLADAALESOEEEAEEEDEEEEEEE 


MOV T2SBFR+6,R1 sPICK UP xSTO 
MOV R1,Re ;SET UP EXPECTED 
BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40% ;BR, IF EQUAL (OK 
JSR PC ,FATCHK ;INC AND CHECK FOR MORE 
ERRHRD ERRNO, T25B0T,EXPREC ;TAPE NOT AT BOT AFTER —~-y 
. WORD 
40$: CKLOOP ;LOOP IF SELECTED — 
MOV #1, T25RB sNUMBER OF RECORDS TO SPACE OVER 


§9O4608484046446484666466464646464464646064666646464644464666646446646464666404646466466464644666 


: 
;SPACE REVERSE ,ACK COMMAND 


é 
89 4226484646466644646446666666646464464646464446646466668466466404646466464464646064604600064 


CSCLP1 


THAN 25 ERRORS 


T2S60T 
EXPREC 


CsCLP1 


MOV #100410, T25PK3 ;SPACE REVERSE ,.ACK COMMAND 
one MOV OT2SPK3S,R4 ;SET UP R4 WITH PACKET ADDRESS 

MOV R4, to : ISSUE COMMAND 

JSR WA sWAIT FOR SSR TO SET 

MOV TSERCRS), R1 sGET TSSR CONTENTS 

MOV @SSR!SC!BIT1!BIT2, Re ;SET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 75$ ;BR, IF OK 

JSR PC ,.FATCHK s INC AND CHECK FOR MORE THAN = ERRORS 

ERRHRD ERRNO, T2SWOE ,.PKTSSR iTSSR INCORRECT AFTER READ DAT 
TRAP * CsERHRD 
.WORD 143 
-WORD T2SWDE 


Lil 
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73s 1: AcE REEORDS 
027416 011710 . WORD PKTSSR 
5038 027420 758: CKLOOP . ;LOOP IF SELECTED 
sone 027420 104406 TRAP CSCLP1 
5040 eT TT IT TTT ttt iii iti r iti i ititiititrti titi rititiititiittitiiitittti iit 
5041 ; 
coat ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xXSTO) 
: 
5044 j APAREEASEASEREAESEREAESEEDEDEDEEEEEEEEEEDEEEEEAEEEESDEEEEEEEEEDEES 
5045 
5046 027422 013701 030136 MOV T2SBFR+6,R1 3;GET xXSTO STATUS WORD 
5047 027426 010102 MOV R1,R2 ;SET UP EXPECTED 
5048 027430 052702 002000 BIS @BIT10,Re2 ;SET THE NEF BIT 
5049 027434 020102 CMP R1,R2 ;ARE THEY EQ) 4L 
5050 027436 0014 BEQ 170$ ;BR, IF EQUAL (GOOD) 
5051 027440 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5055 027444 ERRHRD ERRNO, T2SNEF ,EXPREC sNEF SHOULD BE SET 
027444 104456 TRAP CSERHRD 
027446 000220 . WORD 144 
027450 031125 . WORD T2SNEF 
027452 0163560 . WORD EXPREC 
5056 027454 170$: 
5057 027454 ENDSUB 
027454 L10044; 
027454 104403 TRAP CsESUB 
5058 027456 023727 002170 000031 CMP FATFLG,#@25. :;IS ERROR COUNT AT 25 
5059 027464 002402 BLT 999% ;8R, IF LESS THAN 25 
5060 027466 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5061 027472 999$: 


Mii 
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PLT oO ee maar. sowra-os ones ann on 

5¢63 3¢ 

5064 ; 

5065 ;TEST 1, SUBTEST 7 

5066 ; 

5067 ;sVERIFIES fHAT A SPACE RECORDS REVERSE COMMAND THAT 

5068 ;CUASES THE TAPE TO RUN INTO BOT CWITH THE _ NOT 

5069 ;s INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 

5070 ; TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 

5071 ;STATUS BIT 

5072 ; 

5073 : 

5074 : 

5075 _ 

5076 027472 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
027472 T1.7: 
027472 104402 TRAP CsBSUB 

5077 027474 004737 031500 JSR PC, T2SREST ;SET COMMAND PACKET 

5078 027500 004737 031572 JSR PC, T2SRT2 ;SET UP OTHER COMMAND PACKET 

5079 027504 004737 031634 JSR PC, T25RTS ;SET UP OTHER COMMAND PACKET 

5081 J PARAAAREEEAAEEARESAEASEAAEEREAEAEEREDAEEEEDDEEEEDDREDEDREDEREDADELES 

5082 ; 

5083 ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

5084 ; 

5085 3 9HOOOO8640464646064600060046666460660046660000660000606000066464600046440000004 

5086 

5087 027510 004737 016660 JSR PC .SOF INIT :00 INITIALIZE ON CONTROLLER 

5088 027514 103407 BcS 20$ ;6R IF INIT WAS OK 

5089 027516 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5093 027522 010001 MOV RO,R1 S CONTENTS OF TSSR REGISTER 
027524 ERROF ERRNO,SFIERR,SFIMSG ‘FATAL ERROR TSSR WAS NOT OK 
027524 104455 TRAP CSEROF 
027526 000221 -WORD 145 
027530 003550 -WORD SFIERR 
027532 011676 -WORD SFIMSG 

5095 027534 20$: 

3097 027534 012704 030110 MOV OT2SPACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 

the § FSSASSAAASSASASASASSASARAAAASAAAAKEAHESASEAAASEAAEAEASKEAASESEEAAEOAEEEEELSE 

; 
tye ;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: 

cias § FSSSSSAASASAEASALASASAAASASASASLACARASESASLALCAAAASSAASALALASAAEAREALAEE 

5105 027540 004737 010342 JSR PC ,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

5106 027544 103407 BCS 25% ;68R, IF COMMAND ISSUED OK 

5107 027546 004737 020116 JSR PC ,FATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 

5111 027552 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5112 027554 ERRHRD ERRNO,WRTMSG,SFIMSG ;sWRITE CHARACTERISTISC FAILED 
027554 104456 TRAP CSERHRD 
027556 000222 . WORD 46 
027560 0047 -WORD WRTMSG 
027562 011676 -WORD SFIMSG 

5113 027564 25$: CKLOOP ;LOOP IF SELECTED 
027564 104406 TRAP CSCLP1 


ZTKGA TK-25 FR 
1: SPACE 


EST 


027612 
027612 


027614 


027722 
027724 


011710 
104406 


013701 


360 
012737 


012737 


T END FUNC @3 
RECORDS 


010444 


020116 


000001 


140210 
030240 
177776 
017134 
000000 


000200 


020116 
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030242 


030240 


Nii 


SEQ 143 


j PHARMA EEREASAAEAEEEEASEREARESEREAEEERERAERAREREEEEEEREEEEREREEEEESE 
: 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
pS ARARAARRREAREE RARE AREAEKEARARAAAEAAAHRARHEEREEAAAAEAKAREHR ERR RHE RBEEE 


30$: 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 30$ ;BR, IF NO PROBLEM 
MOV RO,R1 sSAVE TSSR 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORDB 147 
-WORD T2SRWN 
-WORD PKTSSR 
CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 


PP SaARAHRHAAMEEEEKHAATE HE HARARAARAREHRAREHAEREAEEHEAHEERAREHHAKHEEME REE HEADER 


i 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


: 
§ FFSASSSAASHSSASASSSSADADESEAASASLESEAASALOCASASAALALASAEEAEAEADEEDEEEEE 


40$: 


T25BFR+6,R1 sPICK UP XSTO 

R1,R2 ;SET UP EXPECTED 

oBIT1,R2 ;SET BOT BIT IN EXPECTED 

Re ;DOES EXP = REC'D 
40$ ;BR, IF EQUAL (OK) 
PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
. WORD 48 
-WORDB T2S80T 


MOV 


#1, T2S5RB 


. WORD 
sNUMBER OF RECORDS TO SPACE OVER 


§ 92246046446 446644464446464646464464646646440444646446464664464444644644646644644646644664646 


; 
;SPACE FORWARD, IE,ACK,CvC=1 COMMAND 


: 
PRE E SEEKER EHEE REE REAKEEREE AKASH EHAEREHREADAEALAAMAARHEERAVE DAHA EHREDE 


R 
ERRHRD 


#140210, T2SPK3 ;SPACE FORWARD,IE,ACK,CVC=1 COMMAND 
@T25PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
R4,TSDBCRS) ; ISSUE COMMAND 
PC ,WAILTF ;WAIT FOR SSR TO SET 
TSSRCRS),R1 ;GET TSSR CONTENTS 
@SSR ,R2 ;SET UP EXPECTED 
R1,Re ;ARE THEY EQUAL 
75$ ;BR, IF OK 
. ;INC AND CHECK FOR MORE THAN 25 ERRORS 


PC ,FATCHK 
ERRNO, T2SWOE , EXPREC 


;TSSR INCORRECT AFTER READ DATA 
TRAP 


CSERHRO 
.WORDB 149 
-WORD T2SWDE 
.WORD EXPREC 


CZTKGA TK-25 FRT END FUNC @3 


TEST 


1: 


SPACE RECORD 


Ss 


104406 
0127357 


012737 


000020 030242 


100610 030240 
030240 


177776 
017134 
000000 


100204 


020116 


002170 
020170 


017372 
0235710 


Ble 
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000031 


758: 


CKLOOP 
MOV 


#20, T25RB 


8 92006006606 66866 0886686 06S 6668666666 666666S66HES46S6SSHSSEESCEEEEEES 


i 
sSPACE REVERSE, IE,ACK COMMAND 


1758: 


1808: 


1938: 


#100610, T25PK5 


@SSR!IBIT2!:SC,R2 
R1,R2] 

175% 

PC .FATCHK 

ERRNO, T2SWDE , EXPREC 


T258FR-14,R1 

R1,R2 

> ge at 

180% 

PC .FATCHK 

ERRNO, TOSNEF ,EXPREC 


FATFLG, 025. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
193% 
T25L00P 
TST 


SEQ 144 
sLOOP IF SELECTED 
TRAP CSCLPi1 
sNUMBER OF RECORDS TO SPACE OVER 
sSPACE REVERSE ,IE,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TRAP C SERHRD 
-WORD 150 
-WORD T2SWDE 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sGET XST3 STATUS WORD 
sSET UP EXPECTED 
sSET THE RIB BIT 
sARE THEY EQUAL 
s8R, IF EQUAL (GOOD) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sNEF SHOULD BE SET 
TRAP CSERHRD 
-WORDB 151 
-WORD T2SNEF 
-WORD EXPREC 
3>>>>>>>>>>2>2> END SUBTEST »>>2»>>>>>>>> 
110045: 
TRAP CsESUs 
3IS ERROR COUNT AT 25 
;6R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
1300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIt 
~-WORD L10036.-. 


FESHO*, I sBRcEMMEEMRDENS #5 


100004 
030120 
000000 


000010 
030150 
000000 
000012 
000000 


100005 
100405 
102005 
177777 


Cle 
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sLOCAL STORAGE FOR THIS TEST 
i- 


.BLK 10-< i TUV2ZAE7> 
T2ESPACKET: 

. WORD 100004 

. WORD T25DATA 

-WORD O 

-WORD 8. 
T25DATA: 

. WORD T256FR 

.WORD 0O 

. WORD 10. 

-WORD O 
T2SBFR: .BLKW 25. 


: 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


: 
-BLKB 10-<,-TUV2AE7> 


T25PKe: 
. WORD 100006 
. WORD T258F 2 
-WORD O 
-.WORD 6. 
.BLKB 10-<. -TUV2AE7> 

T25PKS: 
. WORD 100005 

T25RB : 

T25WB: .WORD FREE 
.WORD O 

T25SZ: .WORD O 
.EVEN 

; 

: 

; 

T256F 2: 


T2568S0: .BYTE 10 
T258S1: .BYTE 200 
T25S2: .WORD O 
T2583: .WORD 0O 

: 

: 


;TAPE MOTION PACKcT COMMAND VALUES 


T2SRN: .WORD 100005 
T25WOR;: .WORD 100405 
T25CON: .WORD 102005 


. WORD 177777 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


:sBSELO AREA 
;B8SEL1 AREA 
:;SEL 2 AREA 
;DATA AREA 


sREAD DATA (NEXT) 
sREAD DATA RETRY 

sWRITE CONTINOUS 

sEND OF DATA 


SEQ 145 


ACK 


Die 
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TEST 1: SPACE RECORDS 
5275 030266 000000 T2SCN2: .WORD 0 sCOUNTER FOR RECORDS 
5276 030270 000000 T2SCNT: .WORD 0O sCOUNTER FOR RECORDS 
5277 030272 000000 T25D0LY: .WORD 0O sCOUNTER FOR RECORDS 
5278 
5279 3° 
5280 ;LOCAL TEXT MESSAGES FOR TEST 
5281 s- 
5282 
5283 
5284 030274 104 122 111 T2i0FL: .ASCIZ ‘DRIVE IS OFF-LINE’ 
5285 030316 127 122 111 T2SSSR: .ASCIZ ‘WRITE SUBSYSTEM Miecelleneous Read Stetus Fai led’ 
5286 030377 124 123 123 T2SWOE: .ASCIZ ‘TSSR Not Correct After POSITION (SPACE) Command’ 
5287 C30457 124 141 160 TeSBOT: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 
5288 030524 124 123 125 T2STM: .ASCIZ ‘TSSR Not Correct After POSITION ‘seers Command) Re ject’ 
5289 030613 127 162 151 T2SNET: .ASCIZ ‘Write Tape, Stetus Alert, But No EOT Sensed’ 
5290 030667 123 160 141 T2SWNG: .ASCIZ ‘Space Forward Feiled To Position On Correct Record’ 
5291 030752 123 160 141 Te2SBNC: .ASCIZ ‘Spece Forward, From BOT, Feiled To Clear BOT Indication’ 
5292 031042 123 160 141 T2SWNH: .ASCIZ ‘Spece Reverse Failed To Position On Correct Record’ 
5293 031125 123 160 141 T2SNEF: .ASCIZ ‘Spece Reverse, At BOT, Failed To Set NEF (XSTO)’ 
5294 031205 123 160 141 T2SRIB: . IZ ‘Spece Reverse, Into BOT, Failed To Set RIB (xST3)’ 
5295 031267 122 145 167 T2SRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
5296 031336 104 162 151 T2S50FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
5297 031411 124 123 123 T2SWOC: .ASCIZ ‘TSSR Not Correct After READ DATA Command’ 
5298 031462 123 160 141 TST25I0: -ASCIZ ‘Spece Records’ 
5299 .EVEN 
3301 4 
: 
5302 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
5303 sWRITE SUBSYSTEM MEMORY COMMAND 
5304 3 
5305 3° 
5306 
5307 031500 T25REST: 
5308 031500 . SAVREG ;SAVE THE REGISTERS 
5309 031504 012701 030110 MOV @T2SPACKET,R1 sSTART OF THE PACKET 
5310 031510 012721 100004 MOV #100004 ,(R1)> ;sWRITE SUBSYSTEM MEM. WITH ACK 
5311 031514 012721 030120 MOV @T2SDATA,(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 
$312 031520 005021 CLR CR1)> SEXTENDED ADDRESS 
5313 031522 012721 000012 MOV #10. ,.CR1)> sSIZE OF DATA BLOCK IN BYTES 
5314 031526 012721 030130 MOV @T2SBFR,CR1)> sADDRESS OF MESSAGE BUFFER 
5315 031532 005021 CLR CR1)> 
5316 031534 012721 000024 MOV @20.,C€R1)> sLENGTH OF MESSAGE BUFFER 
5317 031540 005021 CLR (R1)> 
5318 031542 012711 000000 MOV @#0,(R1) sSELECT ORIVE ZERO 
5319 031546 012702 000030 MOV 024. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
5320 031552 012762 177777 030130 64%: MOV 0177777, T25BFR(R2) :ALL ONES TO MESSAGE BUFFER 
5321 031560 005742 TST -(R2) sNEXT LOCATION 
5322 031562 022702 000000 CMP 60 ,R2 sIS R2 AT ZERO YET 
5323 031566 001371 BNE 643 sKEEP GOING UNTIL DONE 
4 031570 000207 RTS PC ;RETURN 
5326 031572 T25RT2: 
5327 031572 SAVREG sSAVE THE REGISTERS 
5328 031576 012701 030220 MOV @T25PK2,R1 ;START OF THE PACKET 
5329 031602 012721 100006 MOV #100006,(R1)> ;sWRITE SUBSYSTEM MEM. WITH ACK, 
5330 031606 012721 030250 MOV @T2SBF2,(R1)> sADORESS OF DATA BLOCK 


5331 031612 005021 CLR CR1)-> sEXTENDED ADDRESS 


Ele 
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Test’ 1: SPACE RetoROS ~~ °° 


- @ 


5332 0351614 012721 000006 MOV 06. ,(RI)> sSIZE OF DATA BLOCK IN BYTES 
5333 031620 005021 CLR Ride 
53334 031622 012701 030250 MOV eTeSbF2,.R1 sPOINT TO DATA SEL AREA 
5335 031626 5021 CLR CR1)-> 
5336 031630 005011 CLR (R1) 
5337 031632 207 RTS PC sRE TURN 
5338 031634 T2SRTS: 
5339 031634 SAVREG sSAVE THE REGISTERS 
3340 031640 012701 030240 MOV @T25PK3,R1 sSTART OF THE PACKET 
5341 031644 012721 000000 MOV CRI)» sWRITE SUBSYSTEM MEM. WITH ACK, 
5342 031650 012721 000000 MOV @0,(R1)-+ sADORESS OF DATA BLOCK 
5343 031654 005021 CLR (R1)-> sEXTENDED ADORESS 
5344 031656 012721 000000 MOV #0,(R1)> sSIZE OF DATA BLOCK IN BYTES 
5345 031662 000207 RTS sRE TURN 
5346 031664 ENOTST 
031664 L10036: | 
031664 104401 TRAP. CserTst 


Fie 
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5348 .SBTTL TEST 2: REREADS 
3350 " 
5351 I THIS TEST Let lhe THAT THE REREAD PREVIOUS AND REREAD NEXT 
5352 s;COMMANOS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
5353 SDATA SUFFER SOUNDRIES. RECORD SIZES (CUP TO 64K BYTES IF MEMORY 
5354 sSPACE IS AVAILIABLE), AND BYTE-SWAP (SWPP) AND OPPOSITE (OPP) 
5355 s;CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
5356 V EXCEPT IONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
5357 sLENGTH SHORT, READ REVERSE AT BOT, —* DATA BUFFER ADDRESSES, 
5358 ;AND DATA BUFFERS IN NONEXISTENT MEMORY 
5359 : 
5360 : 
noes ;THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 
: 
5363 ; 
5364 ; 
5365 3° 
5366 031666 BGNTST 
031666 T2:: 
5367 031666 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
5368 631672 005037 003100 CLR KTFLG sHOLD OFF KTil 
5369 031676 012737 005771 002146 MOV EPRT2, EPRTSW sSECONDARY ERROR MESSAGE 
5370 031704 004737 020262 JSR PC .KTOFF 3;00N' T NEED KT11 
5375 031710 012700 050637 MOV @TST26ID,RO sASCII MESSAGE TO IDENTIFY TEST 
5376 031714 004737 017424 JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 
5377 031720 012737 000001 002164 MOV #1,LOOPCNT ;PERFORM 1 ITERATIONS 
cree 031726 005037 046106 CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
3 
5380 ; 
5381 sTEST 2, SUBTEST 1 
5382 : 
5383 3 
5384 sVERIFIES THAT THE REREAD PREVIOUS COMMAND 
5385 ;OPERATES PROPERLY. THE TAPE IS FIRST 
5386 sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
3387 sRECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
5388 ;IS THEN REWOUND AGAIN. FOR EACH TEST ee THE 
5389 ;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
5390 sPREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA, 
5391 sETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
5392 sPREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
tte sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
; 
5395 ; 
5396 3° 
5397 
tte 031732 T26LO0P : 
5400 031732 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
031732 T2.1: 
031732 104402 TRAP CsBSUus 
5401 031734 004737 050650 JSR PC, T26REST 3SET COMMAND PACKET 
5402 031740 004737 050742 JSR PC, T26RT2 :;SET UP OTHER COMMAND PACKET 
5403 031744 004737 051004 JSR PC, T26RTS :SET UP OTHER COMMAND PACKET 
5404 031750 012737 176750 046114 MOV 065000. , T26DL Y ;SET UP DELAY COUNTER 


65 


KGA TK 
T 2: 


5449 032072 
5450 032076 
5451 032100 


004737 
103426 


012727 
000000 
015727 
000000 


011676 


012704 


011676 
104406 


004737 
103413 
016501 


: FRT E F os 
aéReaps “NO FUNC 


016660 


000250 
002116 
177772 
177756 
046114 
020116 


045730 


010342 
020116 


010444 


Gle 
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FPSSSSSSHSHASHSHSESSASHEASSSESSHESEHEAEAEEEAEEEEEEEEEEEEHEEEEEEEEEHEEOEEOS 
a 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
+ eusnensebnnnnaenenaonnabbesnnnananenensnesensennconnsanenneantans 
108: JSR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 
acs 208 ;8R IF INIT WAS OK 
DELAY 250 ;OELAY FOR A REWIND TO FINISH 
MOV ©250,(PC)> 
WORD 0 
MOV LOL. (PC)» 
OEC -6(PC) 
BNE _-4 
DEC -22(PC) 
BNE 20 
DEC T26DL Y :DEC COUNTER 
BNE 108 :BR, IF DELAY NOT READY 
JSR PC. FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
.WORD 201 
“WORD SFIERR 
“WORD  SFIMSG 
203: 
MOV OT26PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


39260266866 66866 666668666 686466666666668666468664666606666466666646646646664466 


: 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


6 
3 2288608664686 6068066866666366666460666660660666066466606666666646666466664646086 


JSR PC ,WRTCHR sISSVE WRITE CHARACTERISTICS 
BCS 26% ;BR, IF COMMAND ISSUED OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


sSAVE CONTENTS OF TSSR 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC oy 


CSERHRD 
-WORD 202 
-WORD WRTMSG 
-WORD SFIMSG 
26%: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1l 


§ 9200866668086 666666666646 6606608046 460606 6666668 6606666666466606646666066646666686 


° 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
; 


8906066666 86666666666666666666466460666646666660646686664666666064866464664646664 


JSR PC ,REWIND ;sCALL TAPE REWINO COMMAND 
BCS 30% ;BR, IF NO PROBLEM 
MOV TSSRCRS),R1 ;GET TSSR 


Hie 
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TES RERens ENO FUNC 05 


S452 032104 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 
5453 032110 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
5454 032112 004737 020116 JSR PC ,FATCHK s INC CHECK FOR MORE THAN 25 ERRCRS 
5458 032116 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
032116 104456 TRAP CSERHRD 
032120 000315 «WORD 203 
O32122 047414 -WORD T26RWN 
032124 011710 WORD PKTSSR 
5459 032126 308: CKLOOP sLOOP IF SELECTED 
aese 032126 104406 TRAP CSCLP1 
5461  SSSSHSSSASSAHASHESSESESESESEHEAASESEOSEESEEEEEEEHEEEEEEEEEHEEEEEEEEEEEEEE 
5462 ; 
ne sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
3 
5465 5 OOS OOSSSOEOSEEASEEEEASEEEEASEE * 646066664066 666646464666666666466666664666 
5466 
5467 0321350 013701 045756 MOV T26BFR+6,R1 sPICK UP XSTO 
5468 032134 010102 MOV R1,R2 ;SET UP EXPECTED 
5469 032136 052702 000002 BIS oBIT1.R2 ;SET BOT BIT IN EXPECTED 
5470 032142 020102 CMP R1,R2 ;D0ES EXP = REC'D 
5471 032144 001406 BEQ 40$ sBR, IF EQUAL (OK) 
S472 032146 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5476 032152 ERRHRD ERRNO, T26B80T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
032152 104456 TRAP C SERHRD 
032154 000314 -WORD 204 
032156 047125 -WORD T26B80T 
032160 016360 -WORD EXPREC 
5477 032162 40%: CKLOOP ;LOOP IF SELECTED 
032162 104406 TRAP CSCLP1 
3478 032164 012703 000400 MOV @256.,R3 sRECORD SIZE 
ode. 032170 013737 003072 046062 MOV FREE , T26RB8 ;STARTING WRITE BUFFER ADDRESS 
Beas 322806068668 668646666 666066466806 6646666666666666666666606666668664666646668 
* 
3 
coea £9 OO O8 6866866046606 866606666666666604466606666666460604666466466646646646866 
3487 032176 012737 140005 046060 MOV #140005 , T26PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
5488 032 012704 046060 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADORESS 
5489 032210 65$: 
5490 032210 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 
5491 032212 004737 020410 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
5492 032216 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
3493 032222 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
5494 032226 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
3495 032232 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
3496 032236 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
5497 032242 020102 CMP R1,R2 sARE THEY EQUAL 
5498 032244 001406 BEQ 75% ;BR, IF OK 
5499 032246 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5503 ;SOFT ERROR GENERATED BECAUSE THE 
5504 sWRITE COMMAND IS NOT BEING CHECKED 
5505 ;sHERE. IT WAS CHECKED IN LEAH2 
5506 032252 ERRSOFT ERRNO, WRTERR,EXPREC ;TSSR INCORRECT AFTER WRITE DATA 
032252 104457 TRAP CSERSOF T 


Ile 


;BIT 15 SETS DIRECTION - O=FORWARD 


1 =REVERSE 
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TEST 2: REREADS 
032254 000315 -WORD 205 
032256 005011 -WORD WRTERR 
032260 016360 -WORD EXPREC 
5507 032262 758; CKLOOP ;LOOP IF SELECTED 
032262 104406 TRAP CSCLP1 
5508 032264 005723 TST CR3)> sBUMP RECORD SIZE 
5509 032266 022703 000414 CMP 0268. ,R3 sEND OF RECORD YET 
5510 032272 001346 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 
5511 032274 803: CKLOOP sLOOP IF SELECTED 
032274 104406 TRAP CSCLP1 
ty 032276 1208: 
5514 PITTI TTY ritrriritirriiiitirriitiiiiiiiiiiitiiiiiitiiititit itt ty 
5515 ; 
ty ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
* 
5518 PITTI rirriririririririitiirititiritiiiiiiiiiiiiiitiiiiitiiitiiiitt 
5519 
5 032276 004737 010444 JSR PC ,REWIND ;sCALL TAPE REWIND COMMAND 
5521 032392 103415 BCS 130% ;BR, IF NO PROBLEM 
S522 032304 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
5523 032310 012702 000200 MOV @SSR ,R2 3sSET UP EXPECTED TSSR 
5524 032314 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
S525 032316 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5529 032322 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
032322 104456 TRAP CSERHRD 
032324 000316 -WORD 206 
032326 047414 -WORD T26RWN 
032330 011710 -WORD PKTSSR 
5530 032332 1308: CKLOOP ;LOOP IF SELECTED 
353: 032332 104406 TRAP CSCLPl 
oe | PEROSHOEEAOSEEESESESEAEAEEAEEEDEOEEEEOAEEDOEEEEEEDEEEEEDEEEEDEODEDE 
: 
ey ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: 
te 5 2OO0066066660666060666060660660006600600660600060600006060000006000000000086 
3538 032334 013701 045756 MOV T26BFR+6,R1 ;PICK UP xSTO 
5539 032340 010102 MOV R1,R2 ;SET UP EXPECTED 
5540 032342 052702 000002 BIS BIT1,Re ;SET BOT BIT IN EXPECTED 
5541 032346 020102 CMP R1,R2 ;D0ES EXP = REC‘D 
5542 032350 001406 BEQ 140% ;BR, IF EQUAL (OK) 
5543 032352 004737 020116 JSR PC ,FATCHK : INC ANDO CHECK FOR MORE THAN 25 ERRORS 
5547 032356 ERRHRD ERRNO, T26B0T ,PKTSSR ;TAPE NOT AT BOT AFTER REWIND 
032356 104456 TRAP CSERHRD 
032360 000317 -WORD 207 
032362 047125 -WORD T26B0T 
032364 011710 .WORD PKTSSR 
5548 032366 140%: CKLOOP ;LOOP IF SELECTED 
032366 104406 TRAP CSCLP1 
coe 032370 012737 000400 046112 MOV @256., T26RSZ ;SET RECORD SIZE 
cnes $9 O66666666666606666666886064660666606066666660666000600606000000000000006 
2 : 
5553 ; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


J1le 
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TEST 2: REREADS 

5555 : 

5556 f PRAAARAAAARAAAAEASAASESAAADASEAASAABLASEEEOELEELERESELACESEREEEROAAELES 

5557 

5558 032376 012703 000001 145$: MOV 01,R35 ;SPACE ONE RECORD PARAMETER 

5559 032402 004737 010144 JSR PC , SPACE ;sCALL SPACE ROUTINE 

5560 032406 103412 Bcs 150% ;8R, IF NO PROBLEM WITH SPACE COMMAND 

5561 032410 016501 MOV po aaah ae R1 ;GET TSSR 

5 032414 012702 000200 MOV oR ;SET UP EXPECTED TSSR 

5563 032420 004737 020116 JSR eC. FAT CHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5567 032424 ERRHRD ERRNO, T26SC ,EXPREC ;POSITION ( SPACE "ns FAILED 
032424 104456 TRAP CSERHRD 
032426 000320 ‘ 208 
032430 046527 . WORD T26SC 
032432 016360 . WORD EXPREC 

5568 032434 1508: 

5569 032434 013703 046112 MOV T26RSZ,RS sRECORD SIZE 

sth 032440 013737 003072 046062 MOV FREE , T26RB ;STARTING READ BUFFER ADDRESS 

5572 F PSAAASESASHEAAAEESAAASAAEAAASEASASESEAEAESASAREAEEAAAEEDEEESEEEEAESE 

5573 ; 

coos ;sREREREAD DATA,CVC#1,ACK COMMAND 

5 

5576 S SASSAARAAASASEHRASSESEAEEEEEASAREDESASHEEEEEEEEEEAEEEEEESLEOEEDEDEDEE 

5577 

5578 032446 012737 141001 046060 MOV #141001, T26PK3 sREREREAD DATA,CVC=1,ACK COMMAND 

5579 032454 012704 046060 165$: MOV @T26PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 

5580 032460 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

5581 032464 010465 177776 MOV R4, TSOBCRS) ; ISSUE COMMAND 

5562 032470 004737 017134 JSR »>WAITF sWAIT FOR SSR TO SET 

5583 032474 016501 000000 MOV TSSR(RS), Ri ;GET TSSR CONTENTS 

5584 012702 000200 MOV @SSR,.R ;SET UP EXPECTED 

5585 020102 CMP R1,Re ;ARE THEY EQUAL 

5586 032506 001406 BEQ 170% ;BR, IF OK 

5587 032510 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

5591 032514 ERRHRD ERRNO, T26WOC ,PKTSSR ;TSSR INCORRECT AFTER oe DATA 
032514 104456 TRAP zs —— 
032516 000321 . WORD 
032520 047750 . WORD ToeMDC 
032522 011710 . WORD PKTSSR 

5592 032524 1708: CKLOOP ;LO0P IF SELECTED 
032524 104406 TRAP CSCLP1 

5593 032526 013702 003072 MOV FREE ,Ro ;CURRENT BUFFER ADDRESS TO Re 

5594 032532 010 MOV R3,R4 sCURRENT RECORD SIZE 

5595 032534 162704 000400 SUB 0256. ,.R4 sFIRST LOCATION IN BUFFER 

5596 032540 060 173%: ADD R2,R4 ;SET UP POINTER 

5597 032542 021403 CMP C(R4),R3 s;CHECK DATA READ (R3=DATA ALSO) 

5598 032544 001410 BEQ 180% ;BR, IF 7“ IS WELL 

5599 032546 011401 MOV C(R4),R1 ;RECD DATA 

5600 032550 010302 MOV R3,Re2 sEXPECTED DATA 

$601 032552 004737 020116 JSR PC ,FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
032556 ERRHRD ERRNO, T26DTA,EXPREC ;DATA READ NOT = WRITTEN 
032556 104456 TRAP CSERHRD 
032560 000322 . WORD 210 
032562 047172 . WORD T26D0TA 
032564 016360 . WORD EXPREC 

5606 032566 180$: CKLOOP ;LO00P IF SELECTED 
032566 104406 TRAP CSCLPl 


Tee a RERE AS ENO FUNC 05 


5607 
36 


032570 


7 
08 032572 


046112 
000412 
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190$: 


002170 000031 


020170 


999%: 


FATFLG, 025. 
999% 


PC ,CKDROP 


SEQ 153 


sBUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
sEND OF RECORD YET 

;6R, IF NOT gh OF RECORD 


;BR, IF MORE RECORDS TO READ 
sLOOP IF SELECTED 
TRAP CscLP1 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10047; 


TRAP CsESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


ELECA." Me™ 


5672 
5673 


032726 
032726 


011676 


012704 


011676 
104406 


FRT END FUNC @3 
ADS 


050650 
050742 
051004 


016660 
020116 


045730 


010342 
020116 


Lie 


MACRO M1200 20-APR-84 08:15 PAGE 98 


3¢ 
8 
;TEST 2, SUBTEST 2 


SEQ 154 


; 
;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
;AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 


AS THA 


HAT USED IN SUBTEST 1, BUT IT IS 


3 THE SAME 
; VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 


;SWAPPED BYTES. 
i 

‘ 

; 

5 


BGNSUB 

JSR PC, T26REST 
JSR PC, T26RT2] 
JSR PC, T26RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T 


TRAP C$BSUB 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


SPORARARARAREREAARAAAEADEEHEAHDARAREHABDSEHEHEAHEAHRE GHHEHREKREAHAEAAEHAEE 


a 
;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


t 
PRR RARARARERAREEAAAAEEHRHAAHADAEASADEREREHRAHAREHADRAHEHREE REAM AREED EH 


JSR PC ,SOF INIT 

BcS 20% 

JSR PC ,.FATCHK 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
20%: 

MOV @T26PACKET ,R4 


300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 


TRAP CSEROF 
. WORD 1 

-WORDB SFIERR 
-WORD SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


SSHSSASSSSSEHASSASASESSASDSESASSAEHEAEHEASASESASESESESASAASASESESEASESAEEEEESD 


5 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


& 
PO RARARKAREREHEAAAEHAEEREEREHEREARHRERAEEBAEHADHREHEERAAREAEEHARHEEAHAAEAAHH EADS 


JSR PC ,,WRTCHR 
BCS 26% 
JSR PC ,FATCHK 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


268: cCKLOOP 


; ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 

;sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

-WORDB e2i2 

.WORDB  WRITMSG 

-WORD SFIMSG 
;LOOP IF SELECTED 

TRAP CsCLP1 


725 ars 


033070 


047414 
011710 


104406 


013701 


104406 
012703 
013737 


012737 
012704 


016501 


TK PRE ake END FUNC @3 


020116 


045756 
000002 


020116 


000400 
003072 
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046062 


046060 


Mile 


SE@ 155 


§ SFERERAAEAABAEARASEASEAALASAAEAAAEAAEEASEAASEEEEASESAREREAEEEEEREDEESE 


: 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
§ SSSAAAEAAREEASASADAASALEAASREAALEAEASEASERESEASEEASASEAREREEEAREDELEES 


30$: 


JSR 
ERRHRD 


CKLOOP 


PC ,REWIND sCALL TAPE REWIND COMMAND 

30$ 3;BR, IF NO PROBLEM 

TSSRCRS),R1 sGET TSSR 

@SSR ,R2 ;SET UP EXPECTED TSSR 

RO,R4 sPACKET ADORESS SET UP 

PC ,FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 


C,FATC 
ERRNO, T26RWN,PKTSSR 


: 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 213 

-WORD T26RWN 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLPi 


§ SSAASAASAASSESSEASSAASAREALABAEAASEDAASARASALALAREAESEKEDASEEAESLEREEERE 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


. 
§ FSAASAKASEAAASASASRESLASASASEASEEEAESAREASASASSEASLASSEASSEAKAAEESRAEEEEEE 


403: 


CKLOOP 


MOV 
MOV 


T26BFR+6,R1 ;PICK UP XSTO 

R1,R2 ;SET UP EXPECTED 
#BIT1,R2 ;SET BOT BIT IN EXPECTED 
R1,Re2 sD0ES EXP = REC'D 

403% ;8R, IF EQUAL (OK 


JSR PC .FATCHK 
ERRHRD ERRNG, T26B0T , EXPREC 


#256. ,R35 
FREE , T26RB 


) 
s INC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 

-WORD 214 

-WORD T26B80T 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CsCLP1 


sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


§ PSARASASAASESASALASASASEAASALASEAALELASAAHASSAAESEALEAEEOARAAZADREDASLE 


; 
sWRITE DATA,ACK,SWB COMMAND 


5 
§ 492 40444648440646 646466 464646446464464446464640446646464464446444644640446464404446402440464044% 


65%: 


#110005, T26PKS sWRITE DATA,ACK,SWB COMMAND 
@T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
R3,RO sSET PATTERN IN CORRECT REGISTER 
PC ,FILLMEM sFILL MEMORY WITH RECORD SIZE 
R3,T26SZ ;SET UP RECORD SIZE IN PACKET 


R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS), R1 


; ISSUE COMMAND 
;WAIT FOR SSR TO SET 
sGET TSSR CONTENTS 


CZTKGA TK-25 FRT END FUNC 03 
REREADS 


TEST 2: 


033074 
033100 
033102 
033104 


033110 
033110 
033112 
033114 
033116 
033120 
033120 
033122 
033124 
033130 
033132 
033132 
033134 


033170 


033172 


033220 


011710 
104406 
005725 
022705 
001346 


10440. 


047414 
011710 


104406 


013701 


000200 


020116 


000414 


010444 
000000 
000200 
020116 


045756 
000002 


020116 


Nie 
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MOV @SSR ,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ ;6R, IF OK 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;sWRITE COMMAND IS NOT BEING CHECKEU 
sHERE. IT WAS CHECKED IN LEAH2 
ERRSOFT ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 215 
. WORD WRTERR 
-WORD PKTSSR 
75$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
TST C(R3)-> ;BUMP RECORD SIZE 
CMP $268. ,R3 sEND OF RECORD YET 
BNE 65$ ;8R, IF MORE RECORDS TO WRITE 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCL”1 
120$: 
5 PHOREEOOEEEEEEEEO4OOEOOOO440000460600004604600404646460000064646000404640468 
; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
{ PEAAEASERESASASESAEEAEESSAEAASAAAAEEEAESEADERADAEDSEEEOEREDERADERES 
JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
BcS 130$ ;8R, IF NO PROBLEM 
MOV TSSRCRS),R1 ;GET TSSR 
MOV @SSR ,Re ;SET UP EXPECTED TSSR 
MOV RO,R4 ;PACKET ADDRESS SET UP 
JSR PC ,FATCHK s;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26RWN,PKTSSR ;sREWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 216 
. WORD T26RWN 
-.WORD PKTSSR 
130$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
| PARED OEO44644460040000646646464640046066646064000000606600004000004640400008 
; 
;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: 
5 PRROREEEEEEEEEEOOEOOOO44O44400004604646400646464606640046406004640400400460408 
MOV T26BFR+6,R1 ;sPICK UP XSTO 
MOV R1,Re2 ;SET UP EXPECTED 
BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,Re2 ;D0ES EXP = REC'D 
BEQ 140% ;B8R, IF EQUAL (OK) 
JSR PC ,FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26B0T ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
: TRAP CSERHRD 
: -WORD 217 
“WORD T26B0T 


SEQ 156 


B13 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 98-3 SEQ 157 
TEST 2: REREADS 

033222 016360 -WORD EXPREC 

5779 033224 1408; CKLOOP sLCOP ar SELECTED 
033224 104406 TRAP CSCLP1 

th 033226 012737 000400 046112 MOV #256. , T26RSZ sSET UP RECORD SIZE 

5782 SE SSAHSSESSSHESSESHOSESHHSASSHEHSEEESSESEEHSHESEEESEEEEEHEHEEOEEEEEOEOEES 

5783 : 

5784 , ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF KECORDS 

ths :BIT 15 SETS OIRECTION - O=FORWARD 1 REVERSE 

i 

5787 POPPE TTT iii iiyivyityiiiyietitriititt 

5788 

5789 033234 012703 000001 1458: MOV 1,R35 sSPACE ONE RECORD PARAMETER 

5790 033240 004737 010144 JSR pC SPACE sCALL SPACE ROUTINE 

$791 033244 103412 BCS 1508 :8R, IF NO PROBLEM WITH SPACE COMMAND 

5792 033246 016501 000000 MOV TSSRC(RS),R1 iGET TSSR 

5793 035252 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED TSSR 

$794 033256 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5798 033262 ERRHRD ERRNO, T26SC ,EXPREC ;POSITION ( SPACE emote — 
033262 104456 CsERHRD 
033264 000352 TNORD 218 
033266 046527 - WORD T26SC 
033270 016360 -WORD EXPREC 

5799 033272 1508; 
033272 013703 046112 MOV T26RSZ R35 sRECORD SIZE 

5801 033276 013737 003072 046062 MOV FREE , T26R8 sSTARTING READ BUFFER ADDRESS 

5803 POC PUPP TTT rrr riviriririyiyiri tity iriitititt 

5804 A 

5805 sREREAD DATA,CvC*1,ACK,SWB COMMAND 

5806 e 

5807 8 9 SOOO O0 8666606668866 08 6466866040686 F6F466466086686406606000666060066068 

3809 033304 012737 151001 046060 MOV #151001, T26PK5 sREREAD DATA,CVC*1,ACK,SWB COMMAND 

5810 033312 012704 046060 165%: MOV OT26PKS 4 ;SET UP R4 WITH PACKET ADDRESS 

5811 033316 010337 6066 MOV R3,126SZ sSET UP RECORD SIZE IN PACKET 

3812 033322 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 

5813 033326 004737 017134 JSR PC ,WAITF sWwAIT FOR SSR TO SET 

3814 033332 016501 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

3815 033336 012702 000200 MOV @SSR, ;sSET UP EXPECTED 

5816 033342 020102 CMP R1,Re2 sARE THEY EQUAL 

5817 033344 001406 BEQ 1708 :6R, IF OK 

5818 033346 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

S822 033352 ERRHRD ERRNO, T26WOC .PKTSSR iTSSR INCORRECT AFTER REREAD DATA 
033352 104456 TRAP CSERHRO 
033354 000333 -WORD 219 
033356 047750 . WORD T26WOC 
033360 011710 .WORD PKTSSR 

5823 033362 1708; CKLOOP sLOOP IF SELECTED 
033362 104406 TRAP CSCL.Pl 

3824 0335364 013702 003072 MOV FREE ,R2 sCURRENT BUFFER ADORESS TO Re 

5825 033370 010304 MOV 3,R4 sCURRENT RECORD SIZE 
033372 162704 000400 SUB 0256. ,R4 sFIRST LOCATION IN BUFFER 

5827 033376 1738: ADD R2,R4 :SET UP POINTER 

5828 033400 021403 CMP C(R4),R5 sCHECK DATA READ (R3=*DATA ALSO) 

5829 033402 001410 BEQ 180% sBR, IF “> IS WELL 

5830 033404 011401 MOV CR4),R1 VRECD DATA 


010302 
004737 


GELHCA, TK eR BRI END FUNC 03 


020116 


046112 


000412 


002170 
020170 


Cis 
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000031 


1808; 


1908: 


999%: 


MOV 
JSR 
ERRHRD 


R3,R2 
PC .FATCHK 


C 
ERRNO, T26D0TA,EXPREC 


FATFLG, 25. 
999% 


PC ,CKDROP 


SEQ 158 


sEXPECTED DATA 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;DATA READ NOT = WRITTEN 


TRAP CSERHRD 

-WORD 220 

«WORD T260TA 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CscLP1 


sBUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
sEND OF RECORD YET 
sBR, IF NOT AT END OF RECORD 
1BUMP RECORD SIZE 
sSTORE RECORD SIZE 
sEND OF RECORD YET 
s;8R, IF MORE RECORDS TO READ 
;LOOP IF SELECTED 
TRAP CSCLP1 


3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10050: 


TRAP CsESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


5906 


033514 


011676 


PELEGA, TeerehBe END FUNC 05 


050650 
046106 
050742 
051004 


016660 
020116 
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2° 
i 
sTEST 2, SUBTEST 3 


: 

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 

3 CREAD eg * SPACE FORWARD) AND SWB*-O OPERATES 

:PR HE TAPE IS FIRST REWOUND AND THEN WRITTEN 

:WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 

sDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 

sCONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
HEN REWOUNOD AGAI 


;TAPE). THE TAPE IS T N. FOR EACH 

sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 

4 

s1. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
: AND THE RESULTS CHECKED 

; 

2. A READ IS THEN ISSUED AND THE 


FORWARD COMMAND 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
3TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 


BGNSUB 3;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.3: 
TRAP Cs6SU8 
JSR PC, T26REST 3;SET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 3;SET UP OTHER COMMAND PACKET 
JSR PC,.T26RTS ;SET UP OTHER COMMAND PACKET 
$900 606666666606000666660666660666666060066060606060000600600060000600000008 
: 
s; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
ne a TT 
JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS O$ ;68R IF INIT WAS OK 
JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 ‘ CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 
. WORD 221 
. WORD SF IERR 
. WORD SF IMSG 


203; 


E13 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 99-1 SEQ 160 
TEST 2: REREADS 
5907 
tee 033540 012704 045730 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
5910 JF PAAAAAOAAAEAEREEEEESAASHAEESAREHEAEEAASEEEEOEEEEEEEESEEOEREEEEEOSSE 
S911 ; 
et ;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
5914 | Meaannenenesannenenenbnnenesenesenenennesnnesanesennennnenensenne 
5915 
5916 033544 004737 010342 JSR PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 
5917 033550 103407 BcsS 26% 38R, IF COMMAND ISSUED OK 
5918 033552 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
$922 033556 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5923 033560 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
033560 104456 TRAP CSERHRD 
033562 000336 . WORD 222 
033564 004754 . WORD WRTMSG 
033566 011676 . WORD SF IMSG 
5924 033570 263: CKLOOP ;LOOP IF SELECTED 
— 033570 104406 TRAP CsCLP1 
5926 J SHAHHAAAHAAEAHESEEAESEEEEASESESEESEEEEEEEESEHESEAESEEESASEEDOEESES 
5927 ; 
tee ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
Bese peeabeenbhenseennannaeneenneoeaaeeennenannnennnenenneehannanes 
1 
S932 033572 004737 010444 JSR PC ,REWINC ;CALL TAPE REWIND COMMAND 
5933 033576 103413 BcsS 30$ ;BR, IF NO PROBLEM 
5934 033600 016501 000000 MOV TSSRCRS),R1 ;GET TS 
3935 033604 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
5936 033610 010004 MOV RO,R4 sPACKET ADORESS SET UP 
3937 033612 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
5941 033616 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
033616 104456 TRAP CSERHRD 
033620 000337 . WORD 225 
033622 047414 . WORD T26RWN 
033624 011710 . WORD PKTSSR 
5942 033626 308: CKLOOP sLOOP IF SELECTED 
— 033626 104406 TRAP CSCLP1 
coon § SHAPES EEEHHAEEEEEEEEEEEEESEEESEEESESESESEOEHEEEHEEEEEEEEEEEOEEEESE 
‘ 
Boat sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
oon , SARANNedNRREhDReeRNReeeebeneEEUAeeeeennt 
5950 033630 013701 045756 MOV T26BFR+6,R1 ;PICK UP XxSTO 
5951 033634 010102 MOV R1,R2 ;sSET UP EXPECTED 
S952 033636 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
5953 033642 020102 CMP R1,Re s00ES EXP = REC'D 
5954 033644 001406 BEQ 40% ;BR, IF EQUAL (OK) 
5955 033646 004737 020116 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
5959 033652 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
033652 104456 TRAP CSERHRD 
033654 000340 . WORD 224 
033656 047125 . WORD T26B0T 


ris 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 99-2 SEG 161 
TEST 2: REREADS 
033660 016360 . WORD EXPREC 
5960 033662 40%: CKLOOP ;LO0P IF SELECTED 
033662 104406 TRAP CSCLPl 
5961 033664 012703 000400 MOV 256. ,R3 sRECORD SIZE 
toy 033670 013737 003072 046062 MOV FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 
5964 § SAHARA ESAAASASEEEEEEAEHAEASEESEEOAEHEDEEEAEEEEEEROEDREHEDEEEEEEOEES 
5965 ; 
toed ;WRITE DATA,CVC*1,ACK COMMAND 
96.2 ‘ 
5968 | SILI TitilTipiiititiiiiiiiiititriiriiiitiiititititiitTriitrtiiiiTititttT 
5969 “eae, 
5970 033676 012737 140005 046060 MOV #140005 , T26PK3 ;sWRITE DATA,CVC*1,ACK COMMAND 
5971 033704 012704 0386060 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
5972 033710 65$: 
5973 033710 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
5974 033712 004737 220410 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
5975 033716 010337 046066 MOV R3,T26S ;SET UP RECORD SIZE IN PACKET 
5976 033722 013777 046106 147142 MOV T26CNT , OF REE sMOVE TAPE RECORD NUMBER TO BUFFER 
5977 033730 062737 000001 046106 ADD #1, T26CNT sNUMBER READY FOR NEXT RECORD 
5978 033736 010465 177776 MOV R4, TSOBCRS) ; ISSUE COMMAND 
5979 033742 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
5980 033746 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
5981 033752 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
5982 033756 020102 CMP R1,R2 ;ARE THEY EQUAL 
5983 033760 001406 BEQ 758% ;6R, IF OK 
5984 033762 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5988 ;SOFT ERROR GENERATED BECAUSE THE 
5989 sWRITE COMMAND IS NOT BEING CHECKED 
5990 sHERE. IT WAS CHECKED IN LEAH2 
5991 033766 ERRSOFT ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
033766 104457 TRAP CSERSOFT 
033770 000341 . WORD 225 
033772 0oOoSOi11 . WORD WRTERR 
033774 011710 . WORD PKTSSR 
5992 033776 753: CKLOOP ;L0O0P IF SELECTED 
033776 104406 RAP CSCLP1 
5993 034000 005723 TST (R3)-> ;BUMP THE RECORD SIZE 
5994 034002 022703 000414 CMP 6268. ,R3 sMAXIMUM SIZE YET 
5995 034006 001401 BEG 120% ;BR, IF AT END OF WRITE SEQUENCE 
5996 034010 000737 BR 65% ;WRITE MORE RECORDS 
5997 034012 1208: 
Ate 034012 005037 046106 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 
ney fs PESOSEHESEEESESOSEEESEEEEEEEEEEEEEEEEEEEEEREEEEEEEEEEEEEEEEREDEEEOE 
° 
pee | ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
4 
6004 f SOHRSEHEHESHESEEESEEEEAEEEESEEEEEEEEEEEOEEEEEEEEEEEEEEHREEEEEEEEEEEOSE 
6006 034016 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
6007 034022 103413 BCS 1308 ;6R, IF NO PROBLEM 
6008 034024 016501 000000 MOV TSSRCRS). Ry ;GET TS 
6009 034030 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
6010 034034 010004 MOV RO, R4 ;PACKET ADDRESS SET UP 
6011 034036 004737 020116 JSR PC ,FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
6015 034042 ERRHRD ERRNO, T26RWN,FKTSSR ; REWIND NOT ACCEPTED 


047414 
011710 


104406 


013701 
2 


012703 
004737 
012703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 


FEIOA, BREE OHO FUME #8 


000001 
010144 
000400 
003072 


161001 
046060 
046066 


177776 
017134 
000000 


000200 


020116 


G13 
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046062 


046060 


1308: 


CKLOOP 


SE@ 162 
TRAP CSERHRD 
-WORD 226 
-WORD T26RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


S FSSASASHSASSESASEASASSSSSASEEASCEHSESASEAEEEHEEEEASEHEKEEEEEESHEEEEEEERES 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 


§ FSSSSOHHAASAESEEASESHESESESESSEAEEASASESEOASSEASESESSOOEEEEKEAAEEEEAEEES 


1408: 


MOV T26BFR+6,R1 
MOV R1,Re2 

BIS #BIT1,R2 
CMP R1,R2 

BEQ 140% 

JSR PC ,FATCHK 


ERRHRD ERRNO, T2680T .EXPREC 


CKLOOP 


sPICK UP xSTO 

3sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

s INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 

-WORDB 227 

-WORD T2680T 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CscLP1 


§ SSSHASASSHASESSSSOHESOSHEEEEAEEASEECEEEEEEEEEEEEEEEEEEEEEHEKEEEEEESE 


: 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 


é 
§ FSSSHSSEHSSSASASSESSESSEAAEEEASEASEESESEEHASEEEESEEESEDASEEEEKEEEEEAEEEDRESE 


1508: 


MOV #1,R3 
JSR PC , SPACE 
MOV @256.,R3 


1 =REVERSE 


;SPACE 1 RECORD FORWARD 
;SPACE CALL 


E 
sSTARTING READ BUFFER ADDRESS 


§ SSSAHSSSSASSASSESESSSSSSEEHESEHASESEEEAEAESEHOHEHEEEEEEEESEHEHEEEEEEEEOE 


3 


e 
§ 9260804664646 66660666064646466 464664066 660666466666664664646404646640466060660004066 


165$: 


MOV #161001, T26PK5 
MOV @T26PK3,R4 
MOV R3,T26SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,Re2 
BEG 170$ 

S Cc 


JSR PC ,.FATCHK 
ERRHRD ERRNO, T26RRG,PKTSSR 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 
;WAIT FOR SSR TO SET 
:sGET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 


000344 
046432 
011710 


104406 


005723 
062737 


012737 


005104 
011710 


104406 


Tee oT REReABS ENO FUNC 08 


000001 046106 


140001 046060 
6066 


04 

177776 
017134 
000000 
000200 


020116 


146570 
046106 


020116 


000412 


002170 
020170 


H15 
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000031 


1708: 


CKLOOP 


TST 
ADD 


CR3)> 
#1, T26CNT 


. WORD 
. WORD 


. WORD 
sLOOP IF SELECTED 


TRAP 
sBUMP RECORD SIZE 
sBUMP TAPE RECORD COUNTER 


S POSSASSSHSAAASASEHEAAEAEAEEASESSESEEASEAASEEHEAEHAEEHEEEHEEEEEEEEAEEEEEEE 


. 
sREAD DATA, CvC*1, ACK COMMAND 
a 


89898248 6866604646 4660086464646 66 6666666664606 64664666464646466660660666464664664646466 


195$: 


197$: 


200%: 


9998: 


#140001 , T26PK53 
R3,T26SZ 

R4, TSOBCRS ) 

PC ,WAITF 
TSSRCRS),R1 

@SSR ,R2 

R1,R2 

195$ 

PC ,FATCHK 

ERRNO ,RDOERR ,PKTSSR 


PC ,.FATCHK 


FATFLG,@25. 
999% 
PC ,CKDROP 


sREAD DATA, CvC=1, ACK COMMAND 
3sSET SIZE INTO PACKET 
; ISSUE READ DATA COMMAND 
;WAIT FOR SSR 
;PICK UP THE TSSR 
;SET UP EXPECTED 
31S THE TSSR OK 
;BR, IF TSSR OK (GOOD) 
;INC AND CHECK FOR MORE THAN 25 
;sREAD DATA COMMAND FAILED 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 


TRAP 
;FIRST WORD FROM READ BUFFER 
;SET UP EXPECTED 
;IS TAPE POSITION CORRECT 
;KEEP GOING POSITION OK 
;INC AND CHECK FOR MORE THAN 25 
;TAPE POSITION INCORRECT 


TRAP 
;AT MAX SIZE YET 
;BR, IF AT END OF THE SUBTEST 
;KEEP GOING MORE RECORDS 


SEQ 163 


CSsCLP1 


CsCc.P1 


ERRORS 


CSERHRD 
230 
T26WNG 
EXPREC 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10051: 
TRAP 
:IS ERROR COUNT AT 25 
:B8R, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


CsESUB 


CZTKGA TK-25 FRT END FUNC @3 
REREADS 


TEST 2: 


034374 


003550 
011676 


012704 


011676 


050650 
046106 
050742 
051004 


016660 
020116 


045730 


010342 
020116 


MACRO M1200 20-APR-84 08:13 PAGE 100 


I15 


3° 
3 
sTEST 2, SUBTEST 4 


: 

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=-1 
;ANO SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
;THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
;SWAPPED BYTES. 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.4: 


TRAP Cs6SUB 
JSR PC, T26REST sSET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


3 9980280484866 446466466686 66666466666 64646640 666660666046046646466466466464646468 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


. 
3 2 98268046464846446 6646464046 446664464666464646646466 6646666646606 46666646646466466464 


JSR PC ,SOFINIT 3:00 INITIALIZE ON CONTROLLER 


BCS 20% ;8R IF INIT WAS OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 s;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR,SFIMSG ;FATAL ERROR TSSR WAS NOT CK 
TRAP CSERDF 
. WORD 231 
. WORD SF IERR 
. WORD SF IMSG 
20%: 
MOV @T26PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


8 92 226808664664646606866646666046 64604644646464046646646644666646404600664646046464664604666 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
8 9OO0806460646464646666466466666664646664666666466604466666064666446446448466464646466 


JSR PC, ‘eee s ISSUE WRITE CHARACTERISTICS 

BCS 26 ;BR, IF COMMAND ISSUED OK 

JSR PC. “FATCH sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHWRD 
-WORDB 232 
-WORD WRTMSG 
.WORD SFIMSG 


SEQ 164 


J13 


ZTKGA TK- FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 100-1 
7 as e: REREABS — vor 

6165 034454 263: CKLOOP ;LOOP IF SELECTED 

anes 034454 104406 TRAP CSCLP1 

6167 FPAASASESAHAASSEEAEEASARAHEAEASESEEEAEAEEEEEEAEEEEEREAEEEREEHEEAAREEES 

6168 ; 

tes ; ISSUE REWIND COMMAND TO SELECTED TAPE DORIVE 

6171 | Oceanseeseseanneendnnnbeinnenenennetiebeeeseeenedaneetnneeneesn 

6172 

6173 034456 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

6174 034462 103413 BCS 30% ;8R, IF NO PROBLEM 

6175 034464 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 

6176 034470 012702 000200 MOV @SSR ,Re ;SET UP EXPECTED TSSR 

6177 034474 010004 MOV RO,R4 ;PACKET ADORESS SET UP 

6178 034476 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6182 034502 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
034502 104456 TRAP CSERHRD 
034504 000351 . WORD 233 
034506 047414 . WORD T26RWN 
034510 011710 . WORD PKTSSR 

6183 034512 30$: CKLOOP ;LO0OP IF SELECTED 

_ 034512 104406 TRAP CSCLPl 

6185 § PARAASASHAAASEHSESAASEHESEEESEEEEASAEREAEEEEHESEDARERESEASEEDAAEEES 

6186 : 

ty t ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

6189 

6190 

6191 034514 013701 045756 MOV T26BFR+6,R1 sPICK UP XSTO 

6192 034520 010102 MOV R1,R2 ;SET UP EXPECTED 

6193 034522 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

6194 034526 020102 CMP R1,R2 :;DO0ES EXP = REC'D 

6195 034530 001406 BEQ 40$ ;BR, IF EQUAL (OK) 

6196 034532 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

6200 034536 ERRHRD ERRNO, T26B0T ,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
034536 104456 TRAP CSERHRD 
034540 000352 . WORD 234 
034542 047125 . WORD T26B0T 
034544 016360 . WORD EXPREC 

6201 034546 40$: CKLOOP ;LOOP IF SELECTED 
034546 104406 TRAP CSCLPl 

6202 034550 012703 000400 MOV 256. ,R35 sRECORD SIZE 

aooe 034554 013737 003072 046062 MOV FREE, T26RB s;STARTING WRITE BUFFER ADDRESS 

ree § OOSOOEOEEAEEOAEEEEEEEEOOEOO64OO6O460464060060000060600040046000000000068 

; 
red ;WRITE DATA,CVC=1,ACK COMMAND 
aoe en 
1 

6211 034562 012737 140005 046060 MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 

6212 034570 012704 046060 MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

6213 034574 65$: 

6214 034574 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 

6215 034576 004737 020410 JSR PC ,FILLMEM ;sF ILL MEMORY WITH RECORD SIZE 

6216 034602 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 


K15 
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GEIL iReRBE ONO FUME #8 


6217 034606 013777 046106 146256 MOV T26CNT , FREE sMOVE TAPE RECORD NUMBER TO BUFFER 
6218 034614 062737 000001 046106 ADD #1, T26CNT sNUMBER READY FOR NEXT RECORD 
6219 034622 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
6220 034626 004737 017154 JSR PC ,WAITF sWAIT FOR SSR TO SET 
6221 034632 016501 000000 MOV TSSRCRS),.R1 sGET TSSR CONTENTS 
6222 034636 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6223 034642 020102 CMP R1,R2 ;ARE THEY EQUAL 
6224 034644 001406 BEQ 75$ ;BR, IF OK 
6225 034646 004737 020116 JSR PC ,FATCHK ;INC ANO CHECK FOR MORE THAN 25 ERRORS 
6229 ;SOFT ERROR GENERATED BECAUSE THE 
6230 sWRITE COMMAND IS NOT BEING CHECKED 
6231 ;sHERE. IT WAS CHECKED IN LEAH2 
6232 034652 ERRSOFT ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
034652 104457 TRAP CSERSOF T 
034654 000353 -WORD 235 
034656 005011 -WORD WRTERR 
034660 011710 -WORD PKTSSR 
6233 034662 75$: CKLCOP ;LOOP IF SELECTED 
034662 104406 TRAP CSCLP1 
6234 034664 005725 TST CR3)-¢ ;BUMP THE RECORD SIZE 
6235 034666 022703 000412 CMP $266. ,R3 sMAXIMUM SIZE YET 
6236 034672 001401 BEQ 120% ;BR, IF AT END OF WRITE SEQUENCE 
6237 034674 000737 BR 65$ ;WRITE MORE RECORDS 
6238 034676 1208: 
eed 034676 005037 046106 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 
6241 j PRPAASESEEEEESAESESEAEEEAEEEREEEEEAEEHEREAEESEEAEESEDEEEEDEEEOEOEEE 
6242 i 
oes ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
ro j CAHASEAEAEESEEAEEEASEESEEDEESEAEAEAESESEDEAESEEAEESEEESESERESEEEKESE 
6247 034702 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
6248 034706 103413 BcS 130$ ;BR, IF NO PROBLEM 
6249 034710 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
6250 034714 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
6251 034720 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 
6252 034722 004737 020116 JSR PC ,FATCHK ' ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6256 034726 ERRHRD ERRNO, T26RWN,PKTSSR ;sREWIND NOT ACCEPTED 
034726 104456 TRAP CSERHRD 
034730 000354 -WORD 236 
034732 047414 . WORD T26RWN 
034734 011710 .WORD PKTSSR 
6257 034736 130$: CKLOOP ;LOOP IF SELECTED 
an 034736 104406 TRAP CsCLP1 
a. | PEMRASEEAEAESEESESEARESESESESEEEEREAEEASESEREESEAAREAEEREDEDEDEDDEES 
4 
ret ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
aes j CRASSA ESESEEEEESEEEASEEEESEAAESEAEAEAEESEAESEDEEEDDEEEDEEDEDELEDE 
6265 034740 013701 045756 MOV T26BFR+6,R1 ;sPICK UP xXSTO 
6266 034744 010102 MOV R1,R2 ;SET UP EXPECTED 
6267 034746 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
6268 034752 020102 CMP R1,R2 ;D0ES EXP = REC'D 
6269 034754 001406 BEQ 140$ ;BR, IF EQUAL (OK) 


CZTKGA TK-25 FRT END FUNC 03 
REREADS 


TEST e: 


6270 
6274 


6320 


004737 


104456 
000355 
047125 
016360 


104406 


012703 
004737 
012703 
013737 


012737 


046355 


020116 


000001 
010144 
000400 
003072 


145770 
046106 


020116 


Lis 
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046062 


140$: 


JSR 
ERRHRD 


CKLOOP 


PC ,FATCHK 
ERRNO, T26B0T , EXPREC 


SEQ 167 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE NOT AT BOT AFTER yy 


§ SSAASASASSSASASAAAHASACESASEAASLELERASESEEEAELASESESASEEKESEBEEEEOE 


: 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
s;BIT 15 SETS DIRECTION - O=FORWARD 


4 
§ PSSSASASSSSAAASSSASASLALESA SALES ESASASASEASEAEASACEAASEDEREAASELAEEEESE 


150$: 


MOV 
JSR 


MOV 
MOV 


FREE, T26RB 


§ FSSAASSSASSSSASSAASSESALASLAASSESALESSESLAAESESEAAAASEAGASEAAESEEKEEEEEEDEEAESE 


, 
sREREAD DATA,CVC=1,ACK, OPP COMMAND 


. 
§9928208246840644644464666666646 664646464644 68646406046466646466604646464666444646464646464 


165$: 


170$: 


190$: 


ERRHRD 


CKLOOP 


#171001, T26PK3 
@T26PK3,R4 


ATCHK 
ERRNO, T26RRF ,PKTSSR 


@F REE ,R1 
T26CNT ,R2 
Re 


R1,R2 

190$ 

PC .FATCHK 

ERRNO, T26WNG ,EXPREC 


;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


; ISSUE COMMAND 

;sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 


CSERHRD 

-WORD 237 
.WORD T2680T 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 

1*REVERSE 

;SET UP SPACE FORWARD 1 

s ISSUE SPACE COMMAND 

sRECORD SIZE 

sSTARTING READ BUFFER ADDRESS 

sREREAD DATA,CVC=1,ACK, OPP COMMAND 


OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 


;TSSR INCORRECT AFTER -_ DATA 


CSERHRD 

-WORD 238 
.WORD T26RRF 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLP1 

;FIRST WORD FROM READ BUFFER 

;SET UP EXPECTED 

;SWAP BYTES IN EXPECTED 

sIS TAPE POSITION CORRECT 

sKEEP GOING POSITION OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

; TAPE POSITION INCORRECT | 
TRAP CSERHRD 
.WORDB 239 
-WORDB T26WNG 
.WORD EXPREC 
TRAP CsCLP1 


6321 
6322 


035132 
035134 


035276 


005723 
062737 


012737 
010337 


TET a RERE ABS EN FUNC #8 


000001 046106 


140001 046060 


046066 
177776 
017134 
000000 
000200 


020116 


145650 
046106 


020116 


000410 


002170 
020170 


M13 
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000031 


TST 
ADD 


C(R3)+ 
#1, T26CNT 


SEQ 168 


sNEXT RECORD SIZE 
sBUMP TAPE RECORD COUNTER 


| AHAARAASAREAEREREASEDADAASEDAEREDEEEEEEEEEAEEEEEEEEDDEDEREEDDEDEES 
; 
sREAD DATA, CvC#1, ACK COMMAND 


5 
§ SEASEASASSAAEESSSASEASEAEASEAREASLAAAAESASEASASREALEAAEASEDRARALEREDA 


2158: 


217%: 


220%: 


999%: 


#140001 , T26PK3 
R3,T26SZ 

R4, TSOBCRS) 

PC ,WALTF 


TSSRCRS),R1 
@SSR ,R2 


21 
PC .FATCHK 
ERRNO, T26RDF ,PKTSSR 


OF REE ,R1 
ae 


FATFLG, #25. 
999% 
PC ,CKDROP 


sREAD DATA, CvC=1, ACK COMMAND 
sSET SIZE INTO PACKET 
s ISSUE READ DATA COMMAND 


;SET UP EXPECTED 

;IS THE TSSR OK 

;BR, IF TSSR OK (GOOD) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
sREAD DATA COMMAND FAILED 


TRAP CSERHRD 
. WORD 40 
-WORD T26RDF 
-WORD PKTSSR 
;LOOP IF SELECTED 
CsCLP1 


TRAP 
sFIRST WORD FROM READ BUFFER 
;SET UP EXPECTED 
:IS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE POSITION INCORRECT 

TRAP CSERHROD 


-WORDB 241 

-WORD T26WNG 
-WORDB  EXPREC 
TRAP CsCLP1 


sAT MAX SIZE YET 
;BR, IF AT ENO OF THE SUBTEST 
sKEEP GOING MORE RECORDS 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L100Se: 


TRAP CsESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


6416 


035310 


035314 


035370 


003550 
011676 


012704 


011676 


FBNIOAaBReRBE &MO FUNC 8 


050650 
050742 
051004 


016660 
020116 


045730 


010342 
020116 


N13 
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3¢ 
; 
sTEST 2, SUBTEST 5 


: 

;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
;LONG CRLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
;STATES OF OPP (O AND 1). 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.5: 
TRAP CsBSvue 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


§ FSSASAASAAASSSEAAAAAASASAEAASAAAALASLESSESASEAABAASELASLELSEAESKEAABAALEAES 


: 
;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


o 
§ FSASASSASSASASSASASASSSASSASESAAEASSSSSESAESSEEAASESEAASAAEEAEEAOAEEEEEEAEE 


JSR PC ,SOF INIT :;00 INITIALIZE ON CONTROLLER 

BCS 20% ;8R IF INIT WAS OK 

JSR PC .FATCHK : INC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORDB 242 
. WORD SFIERR 
. WORD SF IMSG 

208: 
MOV @T26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


£9 226204484686466464646446644406466444644444464646464446464640464664646664646446464404646464604 


; 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
§ 9928444 46064646446464646464646 6466644646 466606404646464646466466464646464464664464648664446444466 


JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
BCS (6 $ :BR, IF COMMAND ISSUED OK 
JSR —s- PC, FATCHK :INC_AND CHECK FOR MORE THAN 25 ERRORS 
Vv RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG WRITE CHARACTERISTISC FAILED 
“ TRAP CSERHRD 
7 WORD 243 
“WORD WRTMSG 
“WORD SFIMSG 
26$: CKLOOP :LOOP IF SELECTED 


B14 


CZTKGA TK-25 FRT END FUNC 063 MACRO M1200 20-APR-84 08:13 PAGE 101-1 SEQ 170 
TEST 2: REREADS 
ani? 035370 104406 TRAP CSCLPi 
6418 EPOHOAAHAHSAHEHHEAOEHHHEEEEEHASEEAEEEEEEEESEEEASHEEEEHEEEHEEEEOEHEREOEESE 
6419 : 
cant s; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
6422 , bdbbnnsddmenseonseensseseonnovesnosnenuseoensenonnnsesensensoneses 
6425 
6424 035372 004737 010444 JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 
6425 055376 103413 BCS 308% ;8R, IF NO PROBLEM 
6426 035400 016501 000000 MOV TSSRC(RS),R1 3sGET TSSR 
6427 035404 012702 000200 MOV OSSR ,R2 ;SET UP EXPECTED TSSR 
6428 035410 O11 MOV RO,R4 sPACKET ADDRESS SET UP 
6429 035412 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6433 035416 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
035416 104456 TRAP CSERHRD 
035420 000364 . WORD 244 
035422 047414 . WORD T26RWN 
035424 011710 . WORD PKTSSR 
6434 035426 308: CKLOOP ;sLO0P IF SELECTED 
_ 035426 104406 TRAP CSCLPl 
64 356 POUT UTEP irrrriiiiirivivisyiirviiitivyiritiiiyit iy 
6437 ; 
cane sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
Neat  rbiemeheaenoteesesnabenebebbedeenbesestbbmanenenaceesnsaseonetn 
1 
6442 035430 013701 045756 MOV T26BFR+6,R1 sPICK UP xSTO 
6443 035434 010102 MOV R1,R2 ;SET UWP EXPECTED 
6444 035436 052702 000002 BIS @BIT1,R2 3;SET BOT BIT IN EXPECTED 
6445 035442 020102 CMP R1,R2 sD0ES EXP = REC'D 
6446 035444 001406 BEQ 40% ;8R, IF EQUAL (OK) 
6447 035446 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6451 035452 ERRHRD ERRNO, T26B80T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
035452 104456 TRAP C SERHRD 
035454 000365 . WORD 245 
035456 047125 . WORD T2680T 
035460 016360 . WORD E XPREC 
6452 035462 40%: CKLOOP sLOOP IF SELECTED 
035462 104406 TRAP CSCLPl 
64535 035464 012703 001000 MOV #512.,R3 sRECORD SIZE 
pins 035470 013737 003072 046062 MOV FREE , 1 26R86 sSTARTING WRITE BUFFER ADORESS 
one SSOHASSEASESHSESSSEEHESESSSESEHSEHHESEEHSEEEEOHEHHEEEEHEHEEEHHEEEOEEEES 
A 
cone sWRITE DATA,CvC+1,ACK COMMAND 
coat tittle eiaehcineaaadtmnameeliinaaai iain tdiiiale tai 
1 
6462 035476 012737 140005 046060 MOV #140005 ,, T26PK3 sWRITE DATA,CVC*1,ACK COMMAND 
64635 035504 012704 046050 MOV @T26PKS,R4 3;SET UP R4 WITH PACKET ADORESS 
6464 035510 65%: 
6465 035510 010337 046066 MOV R3,T26S2Z sSET UP RECORD SIZE IN PACKET 
6466 0355514 010465 177776 MOV R4,TSOB(RS) 1s ISSUE COMMAND 
6467 035520 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
6468 035524 016501 000000 MOV TSSR(RS),R1 sGET TSSR CONTENTS 


CZTKGA TK-25 Al ENO FUNC oS 


TEST e: 


REREAD 


035530 
035534 
03554 
035540 


012702 
020102 
001406 


104457 
000 366 
005011 
011710 


015737 


0127357 


2 
011710 


104406 


013701 
2 


000¢00 


020116 


003072 


020116 


C14 
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046062 


046060 


ERRSOFT ERRNO,WRTERR,PKTSSR 


CKLOOP 


DEC 
MOV 


@SSR ,Re2 
R1,R 


75% 
PC .FAICHK 


RS 
FREE , T26RB 


SEQ 171 


;SET UP EXPECTED 

s;ARE THEY EQUAL 

BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 

sTSSR INCORRECT AFTER WRITE DATA 


TRAP CSERSOFT 

.WORD 246 

-WORD WRTERR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sSET RECORD SIZE TO 511. 
sSTARTING READ BUFFER ADDRESS 


; 
sREREAD DATA,CvCel1 


»ACK ,OPP #1 COMMAND 


3 
8 9066066666666 66666686660606608666666660646068666686666666660666666666668686 


1658: 


1708: 


CHK 
ERRHRD ERRNO, T26TRL .PKTSSR 


CKLOOP 


#161001, T26PK5 
@T26PK5 ,R4 
R3,T26SZ 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS).R1 
ae 


sREREAD DATA,CVC+#1,ACK,.OPP*1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3;SET UP EXPECTED 

sARE THEY EQUAL 

;8R, IF OK 

s INC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER REREAD DAT \ 


TRAP C SERHRD 

We 247 

. WORD T26TRL 

. WORD PKTSSR 
;LO0P IF SELECTED 

TRAP CSCLPl 


§2O 006866686608 666466664666668688 6646666584864 HSOHHHHOHHEEKEHEEEEEEES 


‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


a 
£8 9O6660686 6666666666 606606606686666606686 866606660606 66666666060666666666666 


BEQ 


CHK 
ERRHRD ERRNO, T26LON,EXPREC 


T26BFR+6,R1 
R1,R 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE RLL BIT IN EXPECTED 

sARE THEY EQUAL 

IF EQUAL CALL IS WELL) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;THE RLL BIT WAS NOT SET IN XSTO 


TRAP CSERHRD 
-WORDB 248 
. WORD T26LON 


035714 
035722 


035772 
035772 


035774 
0 


016360 


104406 
012703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


104456 
000371 
050472 
011710 


104406 


013701 


FEEESA2TMaeRERBE ENO FUNC 03 


000777 
003072 


045756 
010000 


020116 


002170 
020170 


D14 
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046062 


046060 


000031 


1808; 


CKLOOP 


MOV 
MOV 


#511.,R5 
FREE , T26RB 


. WORD 
sLOOP IF SELECTED 


TRAP 
sSET RECORD SIZE 
sSTARTING READ BUFFER ADORESS 


| PRAAASAHAEDEAEESESESEOSESEEESOEEEAHASEEEEEEEEEEESEEOEEOEEEEEDREEEEE 
a 
sREREAD DATA,CVC*1,ACK COMMAND 


3 
§ 9800068686686 0686668 6666606660666 66 66666844 SEOEESEEEEEHEEEEEEEEEOEE 


3658: 


3708: 


CKLOOP 


#141001, T26PK3 
@T26PKS ,R4 


@SSRISCIBIT2,Re2 
R1,R2 

370% 

PC .FATCHK 


ERRNO, T26TRL ,PKTSSR 


sREREAD DATA,CVC*#1,ACK COMMAND 
3;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 


SEQ 172 


E XPREC 
Csci. Pl 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER REREAD DATA 


TRAP 
. WORD 
. WORD 
. WORD 
TRAP 


sLOOP IF SELECTED 


898802606606 68606 6686665646666 6688684O64SSOEOSS4ESEHEEEESEEEHEEEEEEESE 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


6 
3920606866866 0666666666 666666666646666606860606660666664666666666066064666666 


380%: 


999%: 


T26BFR+6,R1 
PC ,FATCHK 


ERRNO, T26L0ON,EXPREC 


FATFLG,@25. 
999% 
PC ,CKDROP 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

THE RLL BIT IN EXPECTED 
THEY EQUAL 

IF EQUAL CALL IS WELL) 


CSERHRD 


CSCLPl 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
;THE RLL BIT WAS NOT SET IN XSTO 


TRAP 
- WORD 
“ WORD 


CSERHROD 


EXPREC 


3>>>>>>>>>>>2> END SUBTEST »>>>>>>>>>>>> 


L10053: 
TRAP 
:IS ERROR COUNT AT 25 
;8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


CsESUB 


f 


ZTKGA TK- atic FRT END FUNC @3 
READS 


est e2: 


6571 
6572 
65753 


104402 
004737 
004737 
004737 


004737 
103407 
004737 
010001 


104455 
000375 
003550 
011676 


012704 


004737 
103407 
004737 
010001 


104456 
000374 
004754 


050650 
050742 
051004 


016660 
020116 


045730 


010342 
020116 
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E14 


3¢ 
: 
sTEST 2, SUBTEST 6 


; 

;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
;RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
; CONTAINS THE PROPER NONZERO VALUE (E.G., THE 
;DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND 1). 

; 

; 

; 

3° 


BGNSUS 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.6: 
TRAP Cs6SU8 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RT2 3;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
j POSASSEAEEEASEREEEEEEEEEESEEEAEEEEEEEREOHESEEEAEOEEEREOREDEEERESESE 
; 
: ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
DAA ieee eekeeametenetAseeenbeeneene 
JSR PC ,SOF INIT :00 INITIALIZE ON CONTROLLER 
Bcs 20% ;6R IF INIT WAS OK 
JSR PC .FATCHK s; INC ANO CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsERDF 
. WORD 251 
. WORD SFIERR 
. WORD SF IMSG 
20%: 
MOV @T26PACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 


89 OOO8 6646666066 6666666664666666466666466666666664666686666646460646666668666 


« 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
392866 6666066466666 680466066606686666668606466666466046666060660806086646660666 


JSR PC, — s ISSUE WRITE CHARACTERISTICS 
BCS 26% ;BR, IF COMMAND ISSUED OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


-WORD 252 
.WORD WRTMSG 


SEQ 173 


F14 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 102-1 SEQ 174 
TEST 2: REREADS 
036134 011676 . WORD SF IMSG 
6625 036136 263%; CKLOOP ;LOOP IF SELECTED 
628 036136 104406 TRAP CSCLP1 
6627 { PPAAAAASASESALEHESHSERESESEEEEEEESEAEEAEEEEEAEEEEEEEEREEEREREDREOEE 
6628 : 
roy ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
+ 
6631 eT YI TIT ririririiitiriiitrirtritiiitiriiititiiriitiiiitiititi titty 
6632 
663535 036140 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
6634 036144 103415 BCS 30% ;68R, If NO PROBLEM 
6635 036146 016501 000000 MOV TSSRCRS),R1 GET TSSR 
6636 036152 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
6637 036156 010004 MOV RO, a sPACKET ADDRESS SET UP 
6638 036160 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6642 036164 ERRHRD ERRNO, T26RWN ,PKTSSR ; REWIND NOT ACCEPTED 
036164 104456 TRAP CSERHRD 
036166 000375 . WORD 253 
036170 047414 . WORD T26RWN 
036172 011710 . WORD PKTSSR 
6643 036174 30$: CKLOOP ;LOOP IF SELECTED 
— 036174 104406 TRAP CSCLP1 
6645 PUT IT TTI Tir r iri rit itiiririitritiiriiiriiititiiriiiiititititt itty 
6646 ; 
gtd ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
ened s so dadboeeeenesahnensbennennenenenensneseeneeniassesnnemnneeeneelns 
66 
6651 036176 015701 045756 MOV T26BFRe6,R1 sPICK UP XSTO 
6652 036202 010102 MOV R1,R2 ;SET UP EXPECTED 
6653 036204 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
6654 036210 020102 CMP R1,R2 ;00ES EXP = REC'D 
6655 036212 001406 BEQ 40% ;BR, IF EQUAL (OK) 
6656 036214 004737 020116 JSR PC ,FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
6660 036220 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
036220 104456 TRAP CSERHRD 
036222 000376 . WORD 254 
036224 047125 . WORD T26B80T 
036226 016360 . WORD EXPREC 
6661 036230 40%: CKLOOP ;LOOP IF SELECTED 
036230 104406 TRAP CsCLP1 
6662 036232 012703 000400 MOV 0256. ,R3 sRECORD SIZE 
6663 036236 013737 003072 046062 MOV FREE , T26RB ;STARTING WRITE BUFFER ADDRESS 
ee eT TIT ITI Tir iti tii iri titi iiriti ri riiiitiiitiiriritirititiitiititti yt 
; 
6667 ;sWRITE DATA,CVC#1,ACK COMMAND 
yes s hb edeeebenhnnebaebenedenseseenesabeennnsdeeensnssbeenesaanenebenes 
6671 036244 012737 140005 046060 MOV #140005, T26PK5 ;sWRITE DATA,CVC=1,ACK COMMAND 
6672 036252 012704 046060 MOV @T26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
6673 036256 65%; 
6674 036256 010337 046066 MOV R3,T26S2Z ;SET UP RECORD SIZE IN PACKET 
6675 036262 010465 177776 MOV R4, TSOBC(RS) s ISSUE COMMAND 


036416 
036422 
036424 
036430 
036432 
036434 
036440 
036440 


011710 
104406 


012705 
013737 


012737 


00 
050472 
011710 


104406 


013701 


TET a REReabs SN FUNC 25 


017154 
000000 
000200 


020116 


001000 
003072 


045756 
040000 


020116 
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046062 


046060 


G14 


SEQ 175 


JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSP CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,Re2 sARE THEY EQUAL 
BEQ 75$ sBR, IF OK 
JSR PC ,FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 
ERRSOFT ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 255 
-WORD WRTERR 
-WORD PKTSSR 
758: CKLOOP sLOOP IF SELECTED 
TRAP CscCLP1 
MOV #512. ,R3 sRECORD SIZE 
MOV FREE , T26R8 ;STARTING READ BUFFER ADDRESS 


j PORSASEAESEREASEAAEEEEDASEAEEEEEEEEEEEREEEEDEEESEREEEEEEERE DEES DES 
; 

sREREAD PREVIOUS,ACK,CVC#1,0PP=1 

; 


8928066804066 0646 686646846666 4646666644664 664060666646064646646666466664644646646686 


MOV #161001, T26PK3 sREREAD PREVIOUS,ACK,CVC=1,0PP=1 
165$: MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADORESS 
MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) ; ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!BIT2,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 1703 ;B8R, IF OK 
JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26TRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. WORD 256 
. WORD T26TRL 
. WORD PKTSSR 
170$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 


8% 2O00608 6606686 646666646 6666666664656 066466646 6846666666466 666046600604646064668 


‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


5 
pS SOSH SEEAHHEAEAHSHEHHHAEHEAAAEHAAHAHEHSEAHHHHHARRAKRERHEHAAHCHHEMRHEHHAHHEBR HBS 


MOV T26BFR+6,R1 s;GET MESSAGE BUFFER 

MOV R1,R2 sSET UP EXPECTED 

BIS oBIT14,R2 sSET THE RLS BIT IN EXPECTED 

CMP R1,R sARE THEY EQUAL 

BEQ 180% sBR, IF EQUAL CALL IS WELL) 

JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26LOP,EXPREC ; THE 


RLL BIT WAS NOT or xSTO 


RAP CSERHRD 


H14 


GE LEGA, TK eRe ane END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 102-3 SEQ 176 
036442 000401 ’ . WORD 257 
036444 050322 . WORD T26L0P 
036446 016360 . WORD EXPREC 

6731 036450 180$: 
6732 036450 013701 045754 MOV T26BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 
6733 036454 012702 000400 MOV 256. ,R2 sTHIS SHOULD BE THE DIFFERENCE 
6734 036460 020102 CMP R1,R2 3IS THE DIFFERENCE CORRECT 
6735 036462 001406 BEQ 190% ;8R, IF CORRECT 
6736 036464 004737 020116 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
6740 036470 ERRHRD ERRNO, T26PBP ,EXPREC SRBPCR NOT CORRECT 
036470 104456 TRAP CSERHRD 
036472 000402 . WORD 258 
036474 050404 . WORD T26PBP 
036476 016360 . WORD EXPREC 
6741 036500 1908: CKLOOP ;LOOP IF SELECTED 
036500 104406 TRAP CSCLPl 
6742 036502 012703 001000 MOV #512.,R3 sRECORD SIZE 
a oas 036506 013737 003072 046062 MOV FREE , T26RB ;STARTING READ BUFFER ADDRESS 
6745 TTI TT iTiiriiiiititti i riiiitiiitiititiiititiTrritriiitiitititrTitiTitTtyT YT 
6746 H 
pnd ;sREREAD PREVIOUS ,ACK,CVC=1,0PP=0 
3 
6749 5 92006000 600000060006060600660066006646660060660666606060006064600606060066 
6750 
6751 036514 012737 141001 046060 MOV #141001, T26PK3 sREREAD PREVIOUS ,ACK ,CVC*#1,0PP=0 
6752 036522 012704 046060 MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
6753 036526 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
6754 036532 010465 177776 MOV R34, TSOBCRS) s ISSUE COMMAND 
6755S 036536 004737 017134 JSR PC .WAITF sWAIT FOR SSR TO SET 
6756 036542 016501 MOV TSSR(RS), Ri ;GET TSSR CONTENTS 
6757 036546 012702 100204 MOV @SSR!SC!BIT2,R2 ;SET UP EXPECTED 
6758 036552 020102 CMP R1,R2 ;ARE THEY EQUAL 
6759 036554 001406 BEQ tay ® ;B8R, IF OK 
6760 036556 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
6764 036562 ERRHRD ERRNO, T26TRL ,.PKTSSR :;TSSR INCORRECT AFTER READ DATA 
036562 104456 TRAP CSERHRD 
036564 000403 . WORD 259 
036566 050472 . WORD T26TRL 
036570 011710 . WORD PKTSSR 
6765 036572 2708: CKLOOP ;LOOP IF SELECTED 
aves 036572 104406 TRAP CSCLPl 
ta 94 5 OOOO6O066006666046066066060666860660660066006006006060060660600046004600000008 
o 
cine sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
3 
ork 5 $O42466606066666660066606066006006606660060606006606006066006060660006000000046 
6773 036574 013701 045756 MOV T26BFR+6.R1 :;GET MESSAGE BUFFER 
6774 036600 010102 MOV R1,R2 ;SET UP EXPECTED 
6775 036602 052702 040000 BIS oBIT14,R2 ;SET THE RLS BIT IN/EXPECTED 
6776 036606 020102 CMP R1,R2 ;ARE THEY EQUAL . 
6777 036610 001406 BEQ 280% ;8R, IF EQUAL CALL IS WELL) 
6778 036612 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6782 036616 ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
036616 104456 TRAP CSERWRD 


CZTKGA TK-25 FRT END FUNC @3 
TEST 2: REREADS 


6797 


036670 
036674 


000404 
050322 
016360 


013701 
tod 


045754 
000400 


002170 
020170 
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2808: 


290%: 


000031 


999%: 


114 


oan ae Ri 


Ri SRE 


290% 
ERRNO, T26PBP , EXPREC 


FATFLG, 25. 
999% 


PC ,CKOROP 


SEQ 177 

. WORD 260 

. WORD T26L0P 

. WORD EXPREC 
;sPICK UP RESIDUAL BYTE COUNTER a 
sTHIS SHOULD BE THE DIFFERENCE pier 
31S THE DIFFERENCE CORRECT 
;BR, IF CORRECT * 
‘RBPCR NOT CORRECT 

TRAP CSERHRD 

. WORD 260 

-WORD T26P6P. 

-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10054: 


TRAP CsESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


J14 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 103 


SEQ 178 
TEST 2: REREADS 


6799 3° 
6800 ; 
6801 ;TEST 6, SUBTEST 7 
6802 ; 
6803 : 
6804 ;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 
6805 ;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
6806 AND THEN WRITTEN WITH A SERIES OF TEST 
6807 ;RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
6808 :IS THEN REWOUND AGAIN. FOR EACH TEST ww! THE 
6809 ;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
6810 sNEXT COMMAND ISSUED. RESULTS (STATUS, DATA, 
6811 ;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
6812 ;sNEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
ty ;sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
; 
6815 ; 
6816 3° 
6817 
6818 
6819 036674 BGNSUB8S 3 >>>>>>>>>>>> BEGIN SUBTEST >»>>>»>>>>>>> 
036674 T2.7: 
036674 104402 TRAP Cs$BSUB 
6820 036676 004737 050650 JSR PC, T26REST 3;SET COMMAND PACKET 
6821 036702 004737 050742 JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
oaet 036706 004737 051004 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
coos § SSSSSASSSSAASSSEEASASAAASESASLAESASASHASEESEAASEEAEAAEAKEEEAEKREEAEEEEEEOEES 
2 : 
cast ;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 
cane §94204664046064646664664646464646446464646646444646646646646646446666464604644444664664446664664 
6830 036712 004737 016660 JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
6831 036716 103407 BCS 20% ;8R IF INIT WAS OK 
6832 036720 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6836 036724 010001 MOV RO,R1 :;CONTENTS OF TSSR REGISTER 
6837 036726 ERROF ERRNO, SFIERR,SFIMSG ;sFATAL ERROR TSSR WAS NOT OK 
036726 104455 TRAP CSERDF 
036730 000405 . WORD 261 
036732 003550 . WORD SFIERR 
036734 011676 . WORD SF IMSG 
rts 036736 20$: 
eeak 036736 012704 045730 MOV @T26PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADORESS 
coat 524266 464646446646464646464646464046446446664646464664666404664064406464404646440464644646646464046464 
; 
oe ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
ooo 5 9#4O044646464646464666464446644664664646664646646464646446464664666640400466446464644064046 
6848 036742 004737 010342 JSR PC ,WRICHR ; ISSUE WRITE CHARACTERISTICS 
6849 036746 103407 BcS 26% ;8R, IF COMMAND ISSUED OK 
6850 036750 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6854 036754 010001 MOV RO,R1 :;SAVE CONTENTS OF TSSR 
6855 036756 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 


037024 
037024 


037074 
037102 


004754 
011676 


104406 


047414 
011710 


104406 


013701 


013737 


012737 
012704 


FBLA abReABS OO FNC #8 


010444 
000000 
000200 
020116 


045756 
000002 


020116 


000400 
003072 


140005 


046060 


K14 
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046062 


046060 


26%: 


CKLOOP 


;LOOP IF SELECTED 
TRAP 


§ MESAAAAAAAASAAASEAEESAAAEAEASAAAASRSEAADERALERAAAAAEEEAAEEEEEAEEEEEDS 


: 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


* 
{ ASSAAAAARAASEAAASAAASEAEALERASDASLALAAAASAAALASADAESEEASEAAEEEEAEAEEAEEDEEE 


30$: 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

BCS 30$ ;BR, IF NO PROBLEM 

MOV TSSRCRS),R1 :GET TSSR 

MOV @SSR ,R2 ;SET UP EXPECTED TSSR 

MOV RO,R4 ;PACKET ADDRESS SET UP 

JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 

CKLOOP ;LOOP IF SELECTED 
TRAP 


f SSSAAASAAASAASALASASAASEAAAAEESSEASSESESAASEESASASEAAAEEAEAEAAADREADEEESE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
3 942680404646464646464646464644646446464646044464446464644464664646446404464464464464664464644446466668 


40$: 


T26BFR+6,R1 ;PICK UP xSTO 

R1,R2 ;SET UP EXPECTED 

@BIT1,Re2 ;SET BOT BIT IN EXPECTED 

R1,R2 ;D0ES EXP = REC'D 

403% + IF EQUAL (OK) 

PCF NC AND CHECK FOR MORE THAN 25 


ATCHK 
ERRNO, T26B80T ,EXPREC 


#256. ,R3 
FREE, T26R8 


; TAPE NOT AT BOT AFTER REWIND 
TRAP 


. WORD 
. WORD 


. WORD 
;LOOP IF SELECTED 


TRAP 
sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


5 42282 04646464646466466464646464646666404660664668464464064464664664666646466446464406468 
° 
sWRITE DATA,CVC#1,ACK COMMAND 


a 
5 4#484484646464464646646646464664646446464644646646644646464446466446646664664444446464464644806 


MOV 
MOV 


#140005, T26PK3 
@T26PK3,R4 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R&4 WITH PACKET ADDRESS 


SEQ 179 


CsCLP1 


CsCLP1 


ERRORS 
CSERHRD 
264 


T26B0T 
EXPREC 


CsCLPl 


037106 
037106 
037110 
037114 
037120 
037124 
037130 
037134 
037140 
037142 
037144 


037150 
037150 
037152 
037154 
037156 
037160 
037160 
037162 
037164 
037170 
037172 
037172 
027174 


037174 


037232 
037236 
037240 


005011 
011710 


104406 
005723 
022703 
001346 


104406 


047414 
011710 


104406 


013701 
010102 
052702 


TET a REREAS SN FUNC 05 


020116 


000414 


010444 


000000 
000200 


020116 


045756 
000002 


65$: 


758: 


80$: 


120%: 


L14 
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MOV R3,RO 
JSR PC ,FILLMEM 


JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 75% 

JSR PC ,FATCHK 


ERRSOFT ERRNO,WRTERR,PKTSSR 


SEQ 180 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;8R, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 


;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOF T 
-WORD 265 
-WORD WRTERR 
-JORD PKTSSR 


TRAP CSCLP1 


;LOOP IF SELECTED 


sBUMP RECORD SIZE 
;END OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CsCLP1 


£92246 64486864646 46446686464646446644604044606644646464464646464664464046606646466464464646466 


: 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


= 
§ FSASASSASSSSSASSSSASSSSASAAESEAAASHASEEALEESOSALESREAACEHARSESEEASEEEEE 


130$: 


JSR Pl, REWIND 
30% 


BCS 1 

MOV TSSRCRS),R1 
MOV @SSR,R2 
MOV RO, o 


JSR PC .FATCHK 
ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


SR 
:SET UP EXPECTED TSSR 
;PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 
TRAP — 


-WORD T26RWN 
-WORD PKTSSR 
TRAP CSCLP1 


;LOOP IF SELECTED 


§ 4200646004464 64664646464646460464446446464646646464044660660646446464464464644646464446046048 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


§ 
§ 9#42446464464664464644646644646466646464444404464446646664640464464464646446446404420264444 


MOV T26BFR+6,R1 
MOV R1,R2 
BIS #BIT1,R2 


sPICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 


037244 
037246 


037274 


03727€ 


037424 


012703 


013703 
013737 


012737 


047750 
011710 


GELNA.TMaeReRBE ENO FUNC 08 


020116 


000400 


000001 
010144 
000000 
0002090 
020116 


046112 


003072 


141401 


020116 


M14 
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046112 


046062 


046060 


140$: 


CHK 
ERRNO, T26B0T , EXPREC 


0256. , T26RSZ 
150$ 


SEQ@ 181 


sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 
-WORD 267 
-WORDB T26B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
sSTORE START RECORD SIZE 
;SKIP THE SAPCE THIS TIME 


§ FASAAAARASRAASSASAAAEESEASALASEALALALELALADALASEREREAAEACARERAAEEEEDS 


; 

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 
: 


§ FASSAKASARAASASESLOSOSSASASLALELALALALALAAESARERALASEASEEAEASLAREEAELES 


1458: 


150$: 


JSR 


MOV 
MOV 


#1,R3 

PC ,SPACE 
150$ 
TSSRCRS),R1 
@SSR ,R2 
RO,R4 


ATCHK 
ERRHRD ERRNO, T26SC ,EXPREC 


T26RSZ,RS 
FREE , T26RB8 


1*REVERSE 


;SPACE ONE RECORD PARAMETER 
sCALL SPACE ROUTINE 
:BR, IF NO PROBLEM WITH SPACE COMMAND 
;GET TSSR 
;SET UP EXPECTED TSSR 
;sPACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
sPOSITION (SPACE RECORDS) FAILED 
ern — 


T26SC 
EXPREC 


sRECORD SIZE 
;STARTING READ BUFFER ADDRESS 


j PARSEAASESESERAASADADERADEDEDEDEDEDEDEEEEEEEEEDRDEEDRDDRDREDEDELALERLS 
; 
sREREREAD DATA,CVC=1,ACK COMMAND 


° 
§ FSHSSASSASASSSASSSASEASAASASAEAAAEAAAAAESEAASALSEASEALEAASAAAESASEALEAEESS 


165$: 


ERRHRD 


#141401, T26PKS 
@T26PK3 ,R4 
R3,T26SZ 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 


PC ,FATCHK 
ERRNO, T26WDC ,PKTSSR 


;SET UP R4 WITH PACKET ADDRESS 
;SET UP aaa SIZE IN PACKET 


COMM 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 


TRAP CSERHRD 
.WORD 269 
.WORD T26WDC 
.WORD PKTSSR 


TEST 2: 


REREADS 


oo TK-25 FRT END FUNC 03 


020116 


046112 


000410 


002170 
020170 


N14 


MACRO M1200 20-APR-84 08:13 PAGE 103-4 


000031 


170$: 


173$: 


180$: 


190$: 


999%: 


CKLOOP 


PC.FA 


Je 
R3, T26RSZ 
$264. ,R3 
145$ 


FATFLG,@25. 
999% 
PC ,CKDROP 


SEQ 1862 


sLOOP IF SELECTED 


TRAP CsCLP1 


;CURRENT BUFFER ADDRESS TO Re 


sCURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 

sSET UP POINTER 

sCHECK DATA READ CR3=DATA ALSO) 
;BR, IF ALL IS WELL 


;RECD DATA 
;EXPECTED DATA 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
SDATA READ NOT = WRITTEN 
TRAP CSERHRD 
-WORD 270 
. WORD T26D0TA 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


;BUMP TO NEXT LOCATION 
; CORRECT RECORDS SIZE VALUE 
;END OF RECORD YET 
18R, IF NOT AT END OF RECORD 
;BUMP RECORD SIZE 
;STORE PRESENT RECORD SIZE 
;END OF RECORD YET 
;BR, IF MORE RECORDS TO READ 
;LOOP IF SELECTED 
TRAP CsCLP1 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L1005S: 


TRAP CsESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


Bis 
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SEQ 183 
TEST 2: REREADS 


7039 1° 
7040 i 
seg! :sTEST 2, SUBTEST 8 
; 
7043 :sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
7044 sAND SWB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
7045 ;THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 
7046 sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
7047 ;SWAPPED BYTES. 
7048 i 
7049 ; 
7050 : 
7051 :- 
7052 037536 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
037536 T2.8: 
037536 104402 TRAP Cs6SuUs 
7053 037540 004737 050650 JSR PC, T26REST 3SET COMMAND PACKET 
7054 037544 004737 050742 JSR PC, T26RT2 :;SET UP OTHER COMMAND PACKET 
hee 037550 004737 051004 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
7057 $900 00066060000000000660000060066660600000006666600066006006006060060666666 
7058 : 
anon sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
: 
7061 WYYTIVTITITIIIITITITITITITITITIVITITITITITIVITitririrfririiririiiitrrrity 
7062 
7063 037554 004737 016660 JSR PC .SOF INIT 300 INITIALIZE "ie CONTROLLER 
7064 037560 103407 BCS $ ;68R IF INIT WAS OK 
7065 037562 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7069 037566 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
7070 037570 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
037570 104455 TRAP CSEROF 
037572 17 . WORD 271 
037574 003550 . WORD SF IERR 
037576 011676 . WORD SF IMSG 
ore 037600 208: | 
meee 037600 012704 045730 MOV @T2Z6PACKET RG s;SUBROUTINE NEEDS PACKET ADORESS 
a de $ OOOOOO6OOO60860600000066060008006600000006666060606006600660000060006008 
; 
adhd sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
: 
aon § OOOSOOOOOOOEEOEOOEOOOOEOOOEOOOOO046000006000000006606000000060000000808 
7081 037604 004737 010342 JSR PC ,WRICHR s; ISSUE WRITE CHARACTERISTICS 
7082 037610 103407 Bcs 26% :;8R, IF COMMAND ISS 
7083 037612 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7087 037616 010001 MOV RO,R1 ) SAVE CONTENTS OF TSSR 
7088 037620 ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC “oe 
037620 104456 CSERHRD 
037622 000420 TWORO 272 
037624 004754 “WORD WRTMSG 
037626 011676 WORD SF IMSG 
7089 037630 263: CKLOOP ;LO00P IF SELECTED 
037630 104406 TRAP CSCLPl 


7090 


loka 
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7091 § OO000000000600006066 

7092 0666664666666 466666646666666666666666666666666666 

7098 1 TSSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

cen I SFSSSSAASSASSHADEHEESEHHEAEHEESEHAEAEHEEEESEEEEEEEHEEEEEEEHEHEEEEOEEEEEOEESED 

7097 03763 

oe cen te JSR PC REWIND :CALL TAPE REWIND COMMAND 

7099 037640 016501 000000 MOV TSSR(RS),R 0 OE cae 

7100 037644 012702 000200 MOV essR.R2 GET T 

7101 037650 010004 An a yt sSET UP EXPECTED TSSR 

7102 037652 004737 020116 JSR PC, FATCHK INC AND CHECK FOR POR 

7106 037656 "RE, ay pat sINC AND CHECK FOR MORE THAN 25 ERRORS 
027656 104456 : ° SSR ‘REWIND NOT ACCEPTED 
037660 000421 TRAP CSERHRD 
037662 047414 .WORD 273 

7107 037606 asia “WORD Person 
037666 104406 $0$: = CKLOOP ;LOOP IF SELECTED 

7108 TRAP = C$CLP1 

Aes ‘Se See Eee tea ESTE ior cls samptomparIE rss 

sis READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

rie 39S O 0866666660666 6666666666 664666666666680666666466668666606686608666646666 

7115 037670 ? 

nies se MOV T26BFR+6,R1 sPICK UP XSTO 

7117 037676 052702 000002 BIS eBiT1 R eet BOT Olt ie 

7118 037702 020102 CMP : an* 2 :SET BOT BIT IN EXPECTED 

7119 037704 001406 BEQ 403 . sD0ES EXP = REC'D 

vane re thay 004737 020116 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERROR 
i, se ERRHRD ERRNO, T2680T ,EXPREC :TAPE NOT AT BOT AFTER REWIND . 
037714 000422 TRAP §CSERHRD 
037716 047125 .WORD 274 

7125 037750 — WORD EXPREC 

° ° x 

nize 23722 108406 — fico ;LOOP IF SELECTED . 
037724 012703 000400 MOV 0256. .R me «(ee 

7127 037730 + RS sRECORD SIZE 

7127 013737 003072 046062 MOV FREE. T26RB :STARTING WRITE BUFFER ADDRESS 

8 ‘Oarenoten sae cs Se aor ee reer 

ace :WRITE DATA,CVC#1,ACK,SWB COMMAND 

° , 

ize £90066 6666666660686 68 6646660666066 666666066064666666606666666066666466666666 

7135 037736 012737 150005 046060 MOV e 

ibs an??ae 150005, T26PK3 ;WRITE DATA,CVC*1,ACK,SWB COMMAND 

7137 037750 012704 046060 OA I OT26PK3.R4 ;SET UP R4& WITH PACKET ADDRESS 

138 037750 010300 , MOV R3.RO 

7139 037752 004737 ’ sSET PATTERN IN CORRECT REGISTER 

7140 037756 010337 046066 MOV ORS. T2687 CET UP RECORD SIZE ihe PACKET 

7141 037762 010465 177776 MOV —sRALTSDBCRS) ol maa, 

142 037766 004737 017134 JSR PC, WAITF ;WAIT FOR SSR TO SET 


7143 037772 016501 000000 MOV TSSR(RS), Ri sGET TSSR CONTENTS 


040006 


012702 
020102 
001406 
004737 


005011 
011710 


104406 
005725 
022705 
001346 


104406 


047414 
011710 


104406 


013701 


GELHCA, TK eR ERI END FUNC @3 


037776 
S 04 


000200 


020116 


000414 


020116 


045756 
000002 


020116 


758: 


80$: 


1208: 


DiS 
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MOV @SSR,R2 
CMP Ri,RS 
BEQ 75$ 

JSR PC ,.FATCHK 


ERRSOFT ERRNO,WRTERR ,PKTSSR 


TST (R3)> 
CMP 0268. ,R3 
BNE 65% 


SEQ 185 
1 SET 4 EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 


sHERE. IT WAS CHECKED IN LEAH2 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP — 


. WORD 
-WORD WRTERR 
-WORD PKTSSR 


TRAP CSCLPi 


sLOOP IF SELECTED 


sBUMP RECORD SIZE 
sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CSCLP1 


§ 9 OO0086466 826668666 + 6086 86406466668666666660666066666666660666606646606668668 


: 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
§ 92880688668 408666660466088666608 6666860866866 S4S6SSESEEEESESEHEEEEEES 


1308: 


JSR PC ,REWINO 
130% 


BCS 

MOV TSSRCRS),R1 
MOV @SSR ,R2 
MOV RO,R4 


JSR PC. FATCHK 
ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


sCALL TAPE REWIND COMMAND 


SR 
sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
TRAP CsCLPl 


122066666 666066666866466666666666066666664 6666666666066 666606466666666 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
89 O020686 6666666666 6066066 686566866866 686666886HSOSHESEEEESEHEEEEEEEEEEE 


MOV T26BFR+6,R1 
MOV R1,R2 

BIS oBIT1,R2 
CMP Rl, 

BEQ 140% 

JSR PC ,FATCHK 


ERRHRD ERRNO, T26B80T ,EXPREC 


sPICK UP xXSTO 
;SET UP EXPECTED 
3;SET BOT BIT IN EXPECTED 
3;D0ES EXP = REC'D 
‘BR, IF EQUAL (0K) 
INC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CsERHMRI 
. WORD 277 
. WORD T26B80T 


CZTKGA TK-25 FRT END FUNC 63 
TEST 2: REREADS 


016360 


104406 
012737 
000420 


012705 


013703 
013737 


012737 


047750 


021405 


000400 


000001 
010144 


000000 
000200 


020116 


046112 
003072 


151401 
046 


003072 
000400 


ci2 
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046112 


046062 


046060 


1408: 


CKLOOP 


MOV 
BR 


0256. , T26RSZ 
150% 


SEQ 186 


. WORD 
TRAP 


EXPREC 
CSCLP1 


sLOOP IF SELECTED 


sSTART RECORD SIZE 
sSKIP SAPCE THIS TIME 


§ SSOHASSHSASSHASSEESSHSESAESSESEASESSEAEEASEASESEEEEEEEEEEEEEEEESEHEDEOEESD 


: 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O*FORWARD 


° 
S FSSSSASHASAAASSESEAASEHSESESESASEEHASOAEEESEEEAEEEEEHEEEEEEEEEAEEEEEDE 


1458: 


1508: 


JSR 
ERRHRD 


MOV 
MOV 


1,R3 
PCs » SPACE 
TSSRCRS), Ri 
@SSR ,R2 
RO,R4 


PC .FATCHK 
ERRNO, T26SC ,EXPREC 


T26RSZ RS 
FREE , T26RB8 


1 “REVERSE 


;SPACE ONE RECORD PARAMETER 

s;CALL SPACE ROUTINE 

;8R, IF NO PROBLEM WITH SPACE COMMAND 
:GET TSSR 

;SET UP EXPECTED TSSR 

;PACKET ADDRESS SET UP 


8 OO000 646660606 8466666606666666866668846606066606666060660666060606666646664666 


; 
sREREAD DATA,ACK,CvC=1,SWB COMMAND 


3 
3 99S 088646666866 6666646066666664666664664664460646606466646666666666646464666666 


165$: 


1708: 


1738: 


#151401, T26PK3 
26PK5 ,R4 


PC .FATCHK 


(R4),R5 


sINC AND CHECK FOR MORE THAN 25 ERRORS 

;POSITION (SPACE RECORDS) FAILED 
TRAP CSERHRD 
-WORDB 278 
«WORD T26SC 
-WORD EXPREC 

sRECORD SIZE 

sSTARTING READ BUFFER ADDRESS 

sREREAD DATA,ACK,CVC=1,SWB COMMAND 


;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER mane DATA 


CSERHRO 
TYORD 279 
-WORD T26WOC 
.WORD PKTSSR 
;LOOP IF SELECTED 
RAP CsCLP1 


;CURRENT BUFFER ADORESS TO R2 


sCURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 

:SET UP POINTER 

sCHECK DATA READ (R3=DATA ALSO) 


Fis 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 104-4 
TEST 2: REREADS — a 
7248 040310 001410 BEQ 180% ;BR, Ir ALL IS WELL 
7249 040312 011401 MOV C(R4),R1 sRECD DATA 
7250 040314 010302 MOV RS, a sEXPECTED DATA 
7251 040316 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7255 040322 ERRHRD ERRNO, T26DTA,EXPREC SDATA READ NOT = WRITTEN 
040322 104456 CSERHRD 
040324 000430 280 
040326 047172 T26D0TA 
040330 016360 EXPREC 
7256 040332 180$: CKLOOP ;LOOP IF SELECTED 
040332 104406 CSCLPl 
7257 040334 005724 TST (R4)> ;BUMP TO NEXT LOCATION 
7258 040336 160204 SUB R2,R4 sCORRECT RECORDS SIZE VALUE 
7259 040340 020403 CMP R4,R5 ;END OF RECORD YET 
7260 040342 001360 BNE 173% ;8R, IF NOT AT END OF RECORD 
7261 040344 005725 TST CR3)>+ ;BUMP RECORD SIZE 
7262 040346 010337 046112 MOV R3, T26RSZ ;STORE RECORD SIZE 
7263 040352 022703 000410 CMP $264, ,R3 ;END OF RECORD YET 
7 040356 001270 BNE 145% ;8R, IF MORE RECORDS TO WRITE 
7265 040360 190%: CKLOOP ;L00P IF SELECTED 
040360 104406 CSCLP1 
7266 040362 ENDSUS 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
040362 L10056: 
040362 104405 CsESuUB 
7267 040364 023727 002170 000051 CMP FATFLG,@25. ;IS ERROR COUNT AT 25 
7263 040372 002402 BLT 999% ;8R, IF LESS THAN 25 
7269 040374 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
7270 040400 999%: 


+é 


TKGA_ TK 


ST 2: 


7325 


003550 
011676 


25 FRT F ° 
RERE ARS END FUNC #3 


016660 
020116 


MACRD M1200 20-APR-84 08:13 PAGE 105 


G15 


3* 
; 
sTEST 2, SUBTEST 9 


a 
;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
;CREAD FORWARD, SPACE REVERSE) AND SWB=0 OPERATES 
sPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
sWITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
;DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
sCONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
THEN REWOUND AGAI 


;TAPE). THE TAPE IS N. FOR EACH 
ewe RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 

1. THE REREAD NEXT COMMAND IS ISSUED 

: AND THE RESULTS CHECKED 

5 

a. A READ FORW IS THEN ISSUED ANO THE 


ARO COMMAND 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS . 
Piva Ch PROPERL 


OMMAND (E.G. T 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
;TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 


BGNSUBS ;>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.9: 
TRAP Cs6SU8 
JSR PC, T26REST ;SET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


592 86448666668646 6666646466600 66646646406060686466046646466646666646666464466464606 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
§ 9 2O046464660464466466 6464646666464 664646466046666864666666666464660646666446646684646466 


JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS 20% ;BR IF INIT WAS OK 

JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 281 
-WORD SFIERR 
-WORD SFIMSG 


203: 


SEQ 188 


His 
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SEQ 189 
TEST 2: REREADS 


7326 
4 A 040446 012704 045730 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ts 34 S SOSASAHAAHASASABALASEADASEEAAESEEESEEEEEEEAEHAEEEEEEEEEEREEEEEEOEEOSE 
° 
rece ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
onan S SHEHAAAEASASDESASASESEEAASEEESESESEAEEEAEEEEESEEEEEEEEEEEEEEEOEEHEEEEEEE 
73 
7335 040452 004737 010342 JSR PC ,WRTCHR s; ISSUE WRITE CHARACTERISTICS 
7336 040456 10340 BCS 263% ;BR, IF COMMAND ISSUED OK 
7337 040460 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7341 040464 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
7342 040466 ERRHRD ERRNO,WRIMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
040466 104456. | TRAP CSERHRD 
040470 000432 . WORD 282 
040472 004754 \. . WORD WRTMSG 
040474 011676 -WORD  SFIMSG 
7343 040476 263: CKLOOP ;LOOP IF SELECTED 
reese 040476 104406 TRAP CSCLP1 
kot Ss SSHSAAAESASAASESEADESEEASSEEHASESESASCESEAESESESEEEEASEEESEEEEEEESESEEEESD 
346 ; 
oeen ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
vase TT 
7351 040500 004737 010444 JSR PC ,REWINO ;CALL TAPE REWIND COMMAND 
7352 040504 10341 BCS 30% ;B8R, IF NO PROBLEM 
7353 040506 016501 MOV TSSRCRS),.R1 ;GET TSSR 
7354 040512 012702 000200 MOV @SSR Ro ;SET UP EXPECTED TSS 
7355S 040516 010004 MOV RO,R4 :PACKET ADDRESS SET UP 
7356 040520 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7360 040524 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
040524 104456 TRAP CSERHRD 
040526 000433 . WORD 283 
040530 047414 . WORD T26RWN 
040532 011710 . WORD PKTSSR 
7361 040534 308: CKLOOP ;LOOP IF SELECTED 
7362 040534 104406 TRAP CSsCLP1 
yaaa S SSHASHHHSASESASEAAHESEAESESESADASEAEHEADEEOOEOEEHEEEEHEEAEADEEOEEEEOSE 
; 
hs sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
hgh Tee eR NT Ee a Te EN TIT ee 
7369 040536 013701 045756 MOV T26BFR+6,R1 ;PICK UP xSTO 
7370 040542 010102 MOV R1,R2 ;SET UP EXPECTED 
7371 040544 052702 000002 BIS 6BIT1,R2 :;SET BOT BLT IN EXPECTED 
7372 040550 020102 CMP R1,Re2 ;D0ES EXP = REC'D 
7373 040552 001406 BEQ 40% ;B8R, IF EQUAL (OK) 
7374 040554 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
7378 040560 ERRHRD ERRNO, T26B0T,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
040560 104456 TRAP CSERHWRD 
040562 000434 . WORD 284 
040564 047125 . WORD T26B0T 


aia 
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TEST 2: REREADS 
040566 016360 .WORD EXPREC 
7379 040570 408: CKLOOP ;LOOP IF SELECTED 
040570 104406 TRAP CSCLP1 
7380 040572 012703 000400 MOV 0256. ,R3 sRECORD SIZE 
730i 040576 013737 003072 046062 MOV FREE , T26RB sSTARTING WRITE BUFFER ADDRESS 
7383  SSSHAAHSSASSAESAADAASSASASESSASEHSESEAESSESEEHESEHASEASEHEAEEAEEEEHESEEEEE 
7384 3 
bee ;WRITE DATA,CVC*1,ACK COMMAND 
‘ 
7387 § SSASAASSAHASSSHASEASASASEASEASEHAAEEAESEHEEASSAESESEESAEESEHEEEAEEEEEEEEESE 
7388 
7389 040604 012737 140005 046060 MOV #140005, T26PK3 ;sWRITE DATA,CVC=*1,ACK COMMAND 
7390 040612 012704 046060 MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
7391 040616 653: 
7392 040616 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
7393 040622 013777 046106 142242 MOV T26CNT , BFREE sMOVE TAPE RECORD NUMBER TO BUFFER 
7394 040630 062737 1 046106 ADD #1, T26CNT s;NUMBER READY FOR NEXT RECORD 
7395 040636 010465 177776 MOV R4,TSOBC(RS) ; ISSUE COMMAND 
7396 040642 004737 017134 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
7397 040646 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
7398 040652 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
7399 040656 020102 CMP R1,R2 ;ARE THEY EQUAL 
7400 040660 001406 BEQ 75$ ;BR, IF OK 
7401 040662 004737 020116 JSR PC ,.FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7405 ;SOFT ERROR GENERATED BECAUSE THE 
7406 ;WRITE COMMAND IS NOT BEING CHECKED 
7407 ;HERE. IT WAS CHECKED IN LEAH2 
7408 040666 ERRSOFT ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
040666 104457 TRAP CSERSOFT 
040670 000435 .WORD 285 
040672 005011 .WORD WRTERR 
040674 011710 .WORD PKTSSR 
7409 040676 75$: CKLOOP ;LOOP IF SELECTED 
040676 104406 TRAP CSCLP1 
7410 040700 005723 TST (R3)> ;BUMP THE RECORD SIZE 
7411 040702 022703 000414 CMP 0268. ,R3 ;MAXIMUM SIZE YET 
7412 040706 901401 BEQ 120$ ;8R, IF AT ENO OF WRITE SEQUENCE 
7413 040710 000742 BR 65% ;WRITE MORE RECORDS 
7414 040712 120%: 
ae 040712 005037 046106 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 
eth 8 9OO608046446466046466466606066666464664660646466464606664646066284646464646464666446606464646466466 
418 ; 
peae ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
’ 
any 522086866666 60466466464464646046646464466646664646046466666464606664646460666464464646464644668 
422 
7423 040716 004737 010444 JSR PC ,REWIND ;CALL -TAPE REWIND COMMAND 
7424 040722 103411 BCS 130$ ;8R, IF NO PROBLEM 
7425 040724 016501 000000 MOV TSSR(RS),R1 ;GET TSSR 
7426 040730 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
7427 040732 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7431 040736 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
040736 104456 TRAP CSERHRD 
040740 000436 .WORD 286 
040742 047414 .WORD T26RWN 


CZTKGA TK-25 FRT END FUNC @3 
REREADS 


TEST e: 


040744 
040746 
040746 


041070 


011710 
104406 


013701 


012703 


046527 
011710 


104406 


013703 
0137357 


012737 


045756 
000002 


020116 


000400 


000001 
010144 


000000 
000200 


020116 


046112 
003072 


161401 
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046112 


046062 


046060 


130$: 


CKLOOP 


J15 


SEQ 191 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


ee ee ee ee ee 


: 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
PHASER ARHAREHAAARKEHHREKE HEAR HEHE SHE SEAAHAK HEHE AARHAARRA KHER AHH HERE HMEE 


135$: 


MOV T26BFR+6,R1 ;PICK UP XSTO 

MOV R1,Re ;SET UP EXPECTED 

BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 135% ;BR, IF EQUAL (OK) 

JSR PC ,.FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T26B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 287 


CKLOOP 


MOV 
BR 


0256. , T26RSZ 
140$ 


. WORD 
-WORD EXPREC 
;LOOP IF SELECTED 


TRAP CsCLP1 
;sSTARTING RECORD SIZE 
;SKIP OVER THE SAPCE THIS TIME 


PRRRSARREDHAEHRERHAAREHRRESHEHHERHRHEAHAEAHHAEAEHHHEKHASHH HERSEK HR HHAHHRAEHRHGDS 


: 
; ISSUE SPACE RECORDS COMMAND - VALVE IN R3 SETS NUMBER OF RECORDS 


;BIT 15 SETS DIRECTION - O=FORWARD 


1=REVERSE 


3 
ROE RSHASHEHKRAEEAAEHAEHSEHAHAEHEHAEAARAASHAHHREAHEHHEAEEAEHHREHAHKEAAHAREHREEHHAEEE 


132$: 


140$: 


150$: 


CKLOOP 


MOV 
MOV 


#000001 ,R3 ;SET UP SPACE COMMAND (1 FORWARD) 
PC , SPACE ;CALL SPACE ROUTINE 

140$ ;BR, IF NO TROUBLE 

TSSRCRS),R1 ;GET TSSR 

@SSR,R2 ;SET UP EXPECTED TSSR 

RO,R4 ;PACKET ADDRESS SET UP 


T26RSZ,RS 
FREE , T26RB 


R PC .FATCHK 
ERRHRD ERRNO, T26SC,PKTSSR 


;INC ANDO CHECK FOR MORE THAN 25 ERRORS 
;SPACE (FORWARD) FAILED 
TRAP CSERHRD 


-WORD 288 

-WORD T26SC 

.WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


§ PHSAEHAASEASSSSESSESSESESHESHSHEASSASEESASHASASESHHEOHAOAESASESESDEEEEAESEEEEES 


‘ 
;REREAD DATA,CVC#1,ACK, OPP COMMAND 


; 
S SSSHEASESESASASASASESSSESASESASASLASESSESEADEASSEAADESDESEADOASEEAAEEEEEBDASDS 


MOV 


#161401, T26PKZ 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 


041076 


041246 


046535 


Tee a REReabs ENO FUNC °° 


046060 
046066 
177776 
017134 
000000 


000200 


020116 


141716 
046106 


020116 


000001 


046112 
000412 


041014 


002170 
020170 


KS 
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165$;: MOV @T26PK3 ,R4 
MOV R3,T26SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP 1,R2 
BEQ 170$ 
JSR PC .FATCHK 
ERRHRD ERRNO, T26RRF ,PKTSSR 

1708: CKLOOP 
MOV OFREE ,R1 
MOV T26CNT Re 
CMP R1,Re2 
BEQ 190$ 
JSR PC .FATCHK 
ERRHRD ERRNO, T26WNG, EXPREC 

190$: CKLOOP 

046106 ADD #1, T26CNT 

TST C(R3)>+ 
MOV R3, T26RSZ 
CMP $266. ,R3 
BEQ 200$ 
JMP 132$ 

2008: 
ENDSUB 

000031 CMP FATFLG, #25. 

BLT 999% 
JSR PC ,CKDROP 


999%: 


SEQ 192 


;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER REREAD DATA 


TRAP CSERHRD 
-WORD 289 
-WORD T26RRF 
-WORD PKTSSR 


;LOOP IF SELECTED 
C$CLP1 


TRAP 
;FIRST WORD FROM READ BUFFER 
;SET UP EXPECTED 
;IS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE POSITION INCORRECT 


TRAP CSERHRD 
-WORD 290 
-WORD T26WNG 
-WORD EXPREC 
CsCLP1l 


TRAP 
;BUMP TAPE RECORD COUNTER 
;NEXT RECORD SIZE 
;STORE RECORD SIZE 
;AT MAX SIZE YET 
;BR, IF AT END OF THE SUBTEST 
;KEEP GOING MORE RECORDS 


;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10057: 


TRAP CsESUB 
;IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


104402 
004737 
005037 
004737 
004737 


004737 
103407 
004737 
010001 


104455 
000443 
003550 
011676 


012704 


004737 
103407 
0047357 
010001 


104456 
000444 
004754 
011676 


GELKCA.! TK - AERe Ane END FUNC @3 


050650 
046106 
050742 
051004 


016660 
020116 


045730 


010342 
020116 


he 
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3¢ 
, 
;TEST 2, SUBTEST 10 


; 

;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
sAND SWB=1 OPERATES PROPERLY. THE TES’ “EQUENCE IS 
;THE SAME THAT IS USED IN SUBTEST 5, | It Is 
;VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
;SWAPPED BYTES. 


BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T2.10: 
TRAP CsBSUB 
JSR PC, T26REST ;SET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


3 9 2846804646844644646804684446664646446464464644646464664466444664464664044466444664664446466 


: 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
PRE ARAREREREREHEARSAHAEARHHAREHASEHAAEEERHAEHAHAEAAHAARKREKEHAD KARE REARS 


JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 

BCS 20$ ;8R IF INIT WAS OK 

JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 291 
. WORD SFIERR 
. WORD SF IMSG 

20%: 
MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 


§ SSHASSHESASSSSASAAESSASLASASASSESALSEESASASSASSASLASSASASLASEAESEASHAEAAEAEEASESE 


é 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
GREER MEERA REREAD EARE HEAR ERASE AAEHAE SEH AKREAHRHKEKRERH ADAH EHR DREHSY 


JSR PC, hee sISSUE WRITE CHARACTERISTICS 

BCS 26 ;BR, IF COMMAND ISSUED OK 

JSR PC, -FATCH ;INC ANO CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 292 
.WORD WRTMSG 
WORD SFIMSG 


7573 041344 
041344 


7590 041372 
041572 
041374 
041376 
041400 

7591 041402 
041402 


7602 041416 
7603 041420 
7604 041422 
7608 041426 


7610 041440 
7611 041444 
7612 
7613 
7614 
7615 
7616 
7617 
7618 
7619 041452 
7620 041460 
7621 041464 
7622 041464 
7623 041470 
7624 041476 


104406 


047414 
011710 


104406 


013701 


104406 
012703 
013737 


012737 
012704 


010337 
013777 
062737 


GEE aGREABE &NO FUNC #8 


010444 
000000 
000200 


020116 


045756 
000002 


020116 


000400 
003072 


140005 
046060 


046066 
046106 
000001 


M15 
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046062 


046060 


141374 
046106 


268: CKLOOP 


SEQ 194 


sLOOP IF SELECTED 


TRAP CSCLP1 


PRR e RARER AHHH RH TREE RAAREAMEARAKEHEERHEHAEH ERE RAE HEHEHE AEE ED 


3 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
{ FSASAASAAAAAAASARASAASESESASALAAESSESAAAASSAASLAALESAAASEAEEAAESEEEESDSD 


JSR 


ERRHRD ERRNO, T26RWN,PKTSSR 


30$: CKLOOP 


PC ,REWIND 
TSSRCRS),R1 


PC ,FATCHK 


;CALL TAPE REWIND COMMAND 
;GET TSSR 
;SET UP EXPECTED TSSR 
;8R, IF NO PROBLEM 
;sPACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 
TRAP — 


-WORDB 293 

-WORD T26RWN 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


pROROAAAAREREEKEEAEA RE EMERRHEKEEKRAKEHAARAHERAOEHEKEREHAKEHEAHOEREKE DHAKA 


: 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


¢ 
s SSAAAASSASHASASAABASRASSALESASAAESASASAEASLASASSSSSASSEHASSASSEASELALESESESA 


40%: CKLOOP 


R1,R2 
#BIT1,R2 
R1,R2 
40$ 


PC ,FATCHK 
ERRNO, T26B0T ,EXPREC 


#256. ,R3 
FREE , T26R6 


sPICK UP XSTO 

;SET UP EXPECTED ‘ 
;SET BOT BIT IN EXPECTED 

;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 

-WORDB 294 

-WORD T26B0T 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CsCLPl 


sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


Prt ItT Tri ri titi riti titi tir rititrrt iti iri riti titi triritrtti ti ititt 
; 
;sWRITE DATA,CVC=1,ACK COMMAND 


‘ 
§ 494 264460464644446464644664464646464446644644646464464466446446464464404664646464644646440846 


65%: 


#140005 , T26PKS 
OT26PK3,R4 


R3,T26SZ 
T26CNT , FREE 
#1, T26CNT 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


;SET UP RECORD SIZE IN PACKET 
;MOVE TAPE RECORD NUMBER TO BUFFER 


‘;sNUMBER READY FOR NEXT RECORD 


005011 
011710 


104406 
005723 
022703 
001401 
000742 


005037 


047414 
011710 


104406 


013701 
010102 


GENOA TMieReRB OO FINE #8 


177776 
017134 
000000 
000200 


020116 


000414 


046106 


010444 
000000 
020116 


045756 
000002 


020116 


Nis 
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MOV R4, M+ Se 
JSR PC ,WAITF 

MOV TSSRCRS), Ri 
MOV @SSR,R 

CMP R1,R2 

BEQ 7S$ 

JSR PC .FATCHK 


ERRSOFT ERRNO,WRTERR,PKTSSR 


75$: CKLOOP 
TST CR3)+ 
CMP $268. ,R3 
BEQ 120$ 
BR 65$ 
120$: 
CLR T26CNT 


SEQ 195 


s;ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;B8R, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;sWRITE COMMAND IS NOT BEING CHECKED 
;sHERE. IT WAS CHECKED IN LEAH2 
;TSSR INCORRECT AFTER WRITE DATA 


TRAP CSERSOF T 

-WORDB 295 

-WORD WRTERR 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


;BUMP THE RECORD SIZE 
sMAXIMUM SIZE YET 

;BR, IF AT END OF WRITE SEQUENCE 
;WRITE MORE RECORDS 


;SET RECORD COUNTER BACK TO ZERO 


§ SSAAASAASASEASRASESASASALAEASESAAAASEAEASSAEBAESERAEESOASEHAESEEEEEKEEEDESE 


* 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


9 
§ FAAASHSASAAAEASAAAAALASAASASASESASABREAASESESDABAAEAEAASEEEEEEEAEEAEAEESD 


JSR PC ,REWINOD 
BCS 130$ 

MOV ee 
MOV RO,.R 


JSR PCF ATCHK 
ERRHRD ERRNO, T26RWN,PKTSSR 


130$: CKLOOP 


;CALL TAPE REWIND COMMAND 
OBLEM 


;PACKET ADDRESS SET UP 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORDB 296 

-WORD T26RWN 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLPl 


{ FSSAAHAHASHAASSAAASESSLASASASAAAARAAAESAABASEAASAAAALARAREAESEEAEAEEEEEDE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


MOV T26BFR+6,R1 
MOV R1,R2 
BIS #BIT1,R2 
CMP R1,Re 
BEQ 135$ 

S PC 


JSR »FATCHK 
ERRHRD ERRNO, T26B0T ,EXPREC 


; 
§ PESSAAAASASRASASASHESAAESESEAASEASSESSSASESASAASASHESASAEKASHKSASALEEEEESE 


;PICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


ZIKGA TK-25 FRT END FUNC 03 
EST 2: REREADS 


042022 


000451 
047125 
016360 


104406 
0127357 
000420 


012703 
004737 


046527 
£11710 


1044\06 
013;'03 
0137/37 


012737 


046355 
011710 


104406 
017701 
013702 


000400 


000001 
010144 


000000 
000200 


020116 


046112 
003072 


161401 
046060 
046066 
177776 
017134 
000000 
000200 


020116 


141050 
046106 


046112 


B16 
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-WORD 297 
. WORD T2680T 
. WORD E xPREC 
1358; CKLOOP ;LOOP IF SELECTED 

TRAP CSCLPi 

MOV 0256. .,T26RSZ sSTART RECORD SIZE 

BR 140% ;SKIP OVER SPACE 


046062 


046060 


I SSSSHSSSHSHSSSSSSESSHSHSSHESSESEHEEHESEEHSASESEEEHEHEEEEHEEEEEEEEEEEEEEEES 


a 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS OIRECTION - O=FORWARD 1*RE VERSE 


1368; MOV €000001,R3 1sSET UP SPACE COMMAND (1 FORWARD) 
JSR PC, SPACE ;CALL SPACE ROUTINE 
Bcs 140% ;6R, IF NO TROUBLE 
MOV TSSRCRS),.R1 ;GET TSSR 
MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
MOV RO,R4 sPACKET ADORESS SET UP 
JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26SC ,PKTSSR | SPACE (FORWARD) FAILED 
TRAP C SERHRD 
-WORD 298 
. WORD T26SC 
.WwORD PKTSSR 
1408: CKLOOP 3;L00P IF SELECTED 
TRAP CSCLPl 
MOV T26RSZ R35 sRECORO SIZE 
1508; MOV FREE , T26R8 sSTARTING READ BUFFER ADORESS 
§ SSSSSSSSSSESSSSSSHSSSSEHSSSESSSSHSSESEEHEEEHESEHEEEEEHEEEEEEEEHEEEEEEEESO 
3 
sREREAD DATA,CvC*1,ACK, OPP COMMAND 
a 
§ SSSSSSSHSHHOSSSSHSOSHSHSSOSHESSSSHSHESESESEEHEESEEEESESESHSESEEESESEEEEEEEEEES 
MOV #161401, T26PK3 sREREAD DATA,CVC*1,ACK, OPP COMMAND 
1658: MOV @T26PKS3, 3;SET UP R4 WITH PACKET ADORESS 
MOV R3,T26S2Z sSET UP RECORD SIZE IN PACKET 
MOV R4,TSOB(RS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS), R1 :GET TSSR CONTENTS 
MOV OSSR,R 3;SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% ;BR, IF OK 
JSR PC ,.FATCHK s; INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2Z6RRF .PKTSSR i TSSR INCORRECT AFTER REREAD DATA 
TRAP C SERHMRD 
. WORD 299 
. WORD T26RRE 
. WORD PKTSSR 
i70$%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPl 
MOV OFREE ,R1 sFIRST WORD FROM READ BUFFER 
MOV T26CNT ,R2 ;SET UP EXPECTED 


FEF OAS TS RERERBS ENO FUNC 05 


7729 
7730 
7731 
7735 


042026 
042030 


042114 


020116 


002170 
020170 
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046106 


000031 


1908; 


2208: 


999%: 


R1,R2 
190% 
PC ,FATCHK 


ERRNO, '26WNG,,EXPREC 


#1, T26CNT 


C16 


FATFLG, 025. 
999% 


PC ,CKDROP 


SEQ 197 


11S TAPE POSITION CORRECT 

sKEEP GOING POSITION OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
i TAPE POSITION INCORRECT 


CSERHRD 
-WORD 300 
-WORD T26WNG 
-WORD EXPREC 

CSCLPl 


TRAP 
;BUMP TAPE RECORD COUNTER 
sNEXT RECORD SIZE 
sSTORE RECORD SIZE 
sAT MAX SIZE YET 
;BR, IF AT END OF THE SUBTEST 
sKEEP GOING MORE RECORDS 


3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>>>» 
L10060: 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
;8R, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


D16 


CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 20-APR-84 08:13 PAGE 107 SEQ 198 
TEST 2: REREADS 
7750 :* 
7751 ; 
a ;TEST 2, SUBTEST 11 
5 
7754 ;VERIFIES THAT A REREAD NEXT COMMAND READING A 
7755 sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
7756 ;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
7757 :1.ONG CRLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
7758 s;STATES OF OPP (0 AND 1). 
7759 ; 
7760 : 
7761 ; 
7762 i> 
7763 
7764 
7765 042114 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>» 
042114 T2.11: 
042114 104402 TRAP Cs6SU8 
7766 042116 004737 050650 JSR PC, T26REST ;SET COMMAND PACKET 
7767 042122 004737 050742 JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
in 042126 004737 051004 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
7770 a ILITiIririrririitrriirriitit TiririititiiititriiititvrTittiritirtitititty 
7771 ; 
rrrk ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
. . 
the, IYI TTI iTitriritiiiriiiitiitiiiiiitiitityiiiiiititititiyTiTiTititi Titty tT 
775 
7776 042132 004737 016660 JSR PC ,SOF INIT 3:00 INITIALIZE ON CONTROLLER 
7777 042136 103407 Bcs 20% ;68R IF INIT WAS OK 
7778 042140 004737 020116 JSR PC .FATCHK ;INC ANDO CHECK FOR MORE THAN 25 ERRORS 
7782 042144 010001 MOV RO,R1 s;CONTENTS OF TSSR REGISTER 
7783 042146 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
042146 104455 TRAP C SERDF 
042150 000455 . WORD 301 
042152 003550 . WORD SF IERR 
042154 011676 . WORD SF IMSG 
Ang 042156 205: 
peat 042156 012704 045730 MOV @T26PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
he fF PSHOSEESHEHAASESASEESASESESHSEEEEEESESESEEEEEEEEESEEEEEEEEHEEEEEOS 
; 
Abe sWRITE CHARACTERISTICS COMMAND (CALL TO WRITCHR) 
° 
coal TITITirritiiiriririiititiiiriiitiitiiiyiititiiitirriitiitTiTiitTrTitty 
7794 042162 004737 010342 JSR PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 
7795 042166 103407 BCS 26% ;8R, IF COMMAND ISSUED OK 
7796 042170 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25. ERRORS 
7800 042174 010001 Vv RO,R1 sSAVE CONTENTS OF TSSR . 
7801 042176 ERRHRD ERRNO,WRITMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
042176 104456 TRAP CSERHRD 
042200 000456 . WORD 302 
042202 004754 . WORD WR TMSG 
042204 011676 . WORD SF IMSG 
7802 042206 263%: CKLOOP ;LOOP IF SELECTED 
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* Sh TK-25 FRT END FUNC 03 MACRO M1200 20-APR-84 08:13 PAGE 107-1 SEQ 199 
TEST 2: REREADS 
7803 042206 104406 TRAP CSCLP1 
7804 § PHAAHEAAASEEEASEEEAESEAEAEESEHESASEEEASEHEAEEEEEEEEEEEEEEEESEODNES 
7805 : 
rant ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
i 
7808 j PRPHASAEAAAEASEAASEHEAAEEERERESEEEEEREEEHESESEEEEEEEREEEEEEEEEEEEES 
7809 
7810 042210 004737 010444 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
7811 042214 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
7812 042220 012702 000200 MOV @SSR, ;SET UP EXPECTED TSSR 
7813 042224 103407 BCS 30$ ;6R, IF NO PROBLEM 
7814 042226 010004 MOV RO,R4 sPACKET ADORESS SET UP 
7815 042230 004737 020116 JSR PC ,.FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
7819 042234 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
042234 104456 TRAP CSERHRD 
042236 000457 -WORD 303 
042240 047414 . WORD T26RWN 
042242 011710 -WORD PKTSSR 
7820 042244 30$: CKLOOP ;LOOP IF SELECTED 
rem 042244 104406 TRAP CsCLP1 
7822 JF OPMASEHAEHEEAALEEEEESESEEEEESEEOEEEEEEEEEEEAEEEEEREDEEEDEDEEOEEEEES 
7823 ; 
a sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
rooe | SRASaROEORARNONRERSOReDseNeesOseeeneneoneeennnnsenaneneenenheine 
827 a 
7828 042246 013701 045756 MOV T26BFR+6,R1 ;PICK UP XSTO 
7829 042252 010102 MOV R1,R2 ;SET UP EXPECTED 
7830 042254 052702 000002 BIS oBIT1,Re2 ;SET BOT BIT IN EXPECTED 
7831 042260 020102 CMP R1,R2 sD0ES EXP = REC‘D 
7832 042262 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
7833 042264 004737 020116 JSR PC ,.FATCHK ;INC ANO CHECK FOR MORE THAN 25 ERRORS 
7837 042270 ERRHRD ERRNO, T26B0T ,EXPREC : TAPE NOT AT BOT AFTER REWIND 
042270 104456 TRAP CSERHROD 
042272 000460 -WORD 304 
042274 047125 . WORD T26B80T 
042276 016360 -WORD EXPREC 
7838 042300 40%: CKLOOP ;LOOP IF SELECTED 
042300 104406 TRAP CsCLPi 
7839 042302 012703 001000 MOV #512. ,R3 sRECORD SIZE 
aaae 042306 013737 003072 046062 MOV FREE, T26RB ;STARTING WRITE BUFFER ADDRESS 
bon JF PORASOHEEAESESEHOEHEEEEEEEEEEEHOOEEESEEEEEEEEEESEEEESEEEEEEEEEEHEOEEE 
: 
on ;sWRITE DATA,CVC*1,ACK COMMAND 
sw | dbednnibandbannnnedbeacbneeesensbennsadbbndtanebonenenbiabbinnndinns 
7848 042314 012737 140005 046060 MOV #140005, T26PK3 sWRITE DATA,CVC#1,ACK COMMAND 
7849 042322 012704 046060 MOV @T26PK3,R4 ;SET UP R4&4 WITH PACKET ADDRESS 
7850 042326 65$: 
7851 042326 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
7852 042332 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 
7853 042336 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
7854 042342 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 


F16 
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ZTKGA_TK-25 FRT END FUNC 03 
rest 2: REREADS oaectempse: 


78SS 042346 012702 000200 MOV @SSR ,Re sSET UP EXPECTED 
7856 042352 020102 CMP R1,R2 sARE THEY EQUAL 
7857 042354 0014 BEQ 75% ;BR, IF OK 
7858 042356 004737 020116 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
7862 s;SOFT ERROR GENERATED BECAUSE THE 
7863 sWRITE COMMAND IS NOT BEING CHECKED 
7864 ;HERE. IT WAS CHECKED IN LEAH2 
7865 042362 ERRSOFT ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
042362 104457 TRAP CsERSOFT 
042364 000461 . WORD 305 
042366 005011 . WORD WRTERR 
042370 011710 . WORD PKTSSR 
7866 042372 7S$: CKLOOP ;LOOP IF SELECTED 
res? 042372 104406 TRAP CSCLP1 
7868 SSAASAESHAAASAASEHEEERESEEEAESEDEAESESEESEEESEHEEEEEEEHESEESEEEEESEEEEDSE 
7869 ; 
se dg ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
; "ow 
7872 PTT TTTTT TTT TTT TTT TTT TTT TTT TT OTTTT TTT TUTTI TTT TTT TTT TTT TTT TTT 
7873 
7874 042374 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
7875 042400 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
7876 042404 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
7877 042410 103407 BCS 130$ ;6R, IF NO PROBLEM 
7878 042412 010004 MOV RO,R4 ;sPACKET ADORESS SET UP 
7879 042414 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7883 042420 ERRHRD ERRNO, T26RWN,PKTSSR ;sREWIND NOT ACCEPTED 
042420 104456 TRAP CSERHRD 
042422 000462 . WORD 306 
042424 047414 . WORD T26RWN 
042426 011710 . WORD PKTSSR 
7884 042430 130$: CKLOOP ;LOOP IF SELECTED 
788% 042430 104406 TRAP CsCLP1 
dag J SEHAEESHEEASEHEEESADESEESEAEHSOESEHEDEEESEHEEESESEEESHEEEHEDEDEEESSE 
: 
hee sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 
they fF OSAAEAEEHSAESEESEEHAEAEEEOEESEDAEDS CEDESEHESAEEEEEESOEEEESREEEEEEOSE 
7892 042432 013701 045756 MOV T26BFR+6,R1 sPICK UP XSTO 
7893 042436 010102 MOV R1,Re ;SET UP EXPECTED 
7894 042440 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
7895 042444 020102 CMP R1,R2 ;D0ES EXP = REC'D 
7896 C12446 001406 BEQ 140$ ;BR, IF EQUAL (OK) 
7897 042450 004737 020116 JSR PC ,.FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7901 042454 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
042454 104456 TRAP CSERHRD 
042456 000463 . WORD 307 
042460 047125 . WORD T26B80T 
042462 016360 . WORD EXPREC 
7902 042464 140%: CKLOOP ;LOOP IF SELECTED 
042464 104406 TRAP CsCiPl 
7903 042466 005303 DEC R3 ;SET RECORD SIZE TO 511. 
7904 042470 013737 003072 046062 MOV FREE, T26RB ;STARTING READ BUFFER ADDRESS 
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ZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 107-3 SEQ 201 
EST 2: REREADS 

7906 J PAHOHAEHASEAEHAEEESEEESESEHAESEEEEREEEEEEEEEEEEEREDRESEEEEDEEEEEEOEES 

7907 ; 

iron sREREAD DATA,CVC#1,ACK,OPP*=1 COMMAND 

; 

7910 f PAHASAEAREAEARASEEEAEEEEAEEEAEADESESEEREDREEEDEDEEEEOOEEEEEEEEERESSE 

7911 

7912 042476 012737 161401 046060 MOV #161401, T26PK3 sREREAD DATA,CVC*#1,ACK,OPP=1 COMMAND 

7913 042504 012704 046060 1658: MOV @T26PK3, ;SET UP R4 WITH PACKET ADDRESS 

7914 042510 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

7915 042514 010465 177776 MOV R4,TSOBCRS) sISSUE COMMAND 

7916 042520 004737 017134 JSR PC ,WAILTF sWAIT FOR SSR TO SET 

7917 042524 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

7918 042530 012702 100204 MOV @SSR!ISC!BIT2,R2 ;SET UP EXPECTED 

7919 042534 020102 CMP R1,R2 ;ARE THEY EQUAL 

7920 042536 001406 BEQ 1703 ;8R, IF OK 

7921 042540 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

7925 042544 ERRHRD ERRNO, T26TRL.PKTSSR ;TSSR INCORRECT AFTER oe DATA 
042544 104456 CSERHRD 
042546 000464 TWORO 308 
042550 050472 . WORD T26TRL 
042552 011710 . WORD PKTSSR 

7926 042554 170$: CKLOOP ;LOOP If SELECTED 

— 042554 104406 . TRAP CSCLPl 

tee S PRESASASESASEEASEEESASEEEAEEEEEEEEEHEEEHAEEHREEEEEOEEEEEDEEEOOEEDOESE 

929 ; 

ee ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

es | suenthansdnbaneseananenatiabedabadinebeseasnenbnbiinbeibebsaasenn 

7934 042556 013701 045756 MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 

7935 042562 010102 MOV R1,R2 ;SET UP EXPECTED 

7936 042564 052702 010000 BIS oBIT12,R2 ;SET THE RLL BIT IN EXPECTED 

7937 042570 020102 CMP R1,R2 ;ARE THEY EQUAL 

7938 042572 001406 BEG 180$ ;8R, IF EQUAL (ALL IS WELL) 

7939 042574 004737 020116 JSR PC .FATCHK :; INC AND CHECK FOR MORE THAN 25 ERRORS 

7943 042600 ERRHRD ERRNO, T26LON,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
042600 104456 TRAP CSERHWRD 
042602 000465 . WORD 309 
042604 050240 . WORD T26LON 
042606 016360 . WORD EXPREC 

7944 042610 1808: 

7945 042610 012703 000777 MOV #511.,R3 ;SET UP SIZE OF RECORD 

ae 042614 013737 003072 046062 MOV FREE , T26RB ;STARTING READ BUFFER ADDRESS 

Aes. § PROS AEEAEEEEEEEEEEEEEEEDEEEEEEEOOEOO4OEOOO000000000600046000000000686 

é 

Mery sREREAD DATA,CVC*1,ACK COMMAND 

A | OT aT ON ENE A SE 

7954 042622 012737 141401 046060 MOV #141401, T26PKS3 sREREAD DATA,CVvC+#1,ACK COMMAND 

7955 042630 012704 046060 3658: MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

7956 042634 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

7957 042640 010465 177776 MOV R4,TSDBC(RS) ; ISSUE COMMAND 

7958 042644 004737 017134 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

7959 042650 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
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7960 042654 012702 100204 MOV OSSR!SC!BIT2,R2 ;SET UP EXPECTED 

7961 042660 020102 CMP ~R2 ;ARE THEY EQUAL 

7962 042662 0014 BEG 3708 ;BR, IF OK 

7963 042664 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

7967 042670 ERRHRD ERRNO, T26TRL,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
042670 104456 TRAP CSERHRD 
042672 000466 . WORD 310 
042674 050472 . WORD T26TRL 
042676 011710 . WORD PKTSSR 

7968 042700 3708: CKLOOP ;LO0P IF SELECTED 

7969 042700 104406 TRAP CSCLPl 

7970 § PSSAASSSHAHSSEASESSEHABASESSEHSESEAESESESSSEESESESSEEESEEEESEHEEEEEESEEES 

7971 3 

be ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

° 

7974 s PORES EERARESEEESEAOREOAEEAEREEEEEEDEREEEOEOEEEEEEEOEOEEEEEOEEEEES 

7975 

7976 042702 013701 045756 MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 

7977 042706 010102 MOV R1,R2 ;SET UP EXPECTED 

7978 042710 052702 010000 BIS eBIT1i2,R2 ;SET THE RLL BIT IN EXPECTED 

7979 042714 020102 CMP R1,R2 ;ARE THEY EQUAL 

7980 042716 001406 BEG 380$ ;BR, IF EQUAL CALL IS WELL) 

7981 042720 004737 020116 JSR PC .FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

7985 042724 ERRHRD ERRNO, T26L0*!,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
042724 104456 TRAP C SERHRD 
042726 000467 . WORD 11 
042730 050240 . WORD T26L0N 
042732 016360 . WORD EXPREC 

7986 042734 380$: 

7987 042734 ENODSUB 5 >>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
042734 L10061: 
042734 104403 TRAP CsESUs 

7988 042736 023727 002170 000031 CMP FATFLG,¢@25. :;1S ERROR COUNT AT 25 

7989 042744 002402 BLT 999% ;BR, IF LESS THAN 25 

7990 042746 004737 020170 JSR PC ,CKDROP : TRY TO OROP THE UNIT 

7991 042752 999%: 


CZTKGA TK-25 FRT END FUNC 03 
REREADS 


TEST e2: 


104402 
004737 
004737 
004737 


003550 
011676 


012704 


050650 
050742 
051004 


016660 
020116 


045730 


010342 
020116 
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:¢ 
* 
;TEST 2, SUBTEST le 


a 

;VERIFIES THAT A REREAD NEXT COMMAND READING A 
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
sRESIOUVAL BYTE COUNTER CRBPCR) IN THE MESSAGE BUFFER 
sCONTAINS THE PROPER NONZERO VALUE (E.G., THE 

; DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND 1). 

° 

° 

; 

ibe 


BGNSUB 3>>>>>>>>>>>> BECIN SUBTEST >»>>>>>>>>>>> 
T2.12: 
TRAP CsBSuU8 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 
§ PEAASSEASEHAASESEEADASEEEEESEEEEEEEREEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
3 
;ISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| Dinebnenainenndeenesendbebansinsekdbednebhnseneceseeceseebenten 
JSR PC ,SOF INIT :00 INITIALIZE ON CONTROLLER 
bcs 20% ;BR IF INIT WAS OK 
JSR PC ,.FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 :;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SF TERR, SF IMSG ;sFATAL ERROR TSSR WAS NOT OK 
TRAP C SERDF 
. WORD 312 
. WORD SF IERR 
. WORD SF IMSG 
20%: 
MOV @T26PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


§ 9288060668666 6646664646 666664646646666666664666466646606664666464606606604666806 


: 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


o 
§ 220886 6O60646664466404644666646666466466606646660666464446666606666646666666666686 


JSR PC,WRTICHR s ISSUE WRITE CHARACTERISTICS 
BCS 26% ;BR, IF COMMAND ISSUED OK 
JSR PC, —— sINC AND CHECK FOR MORE THAN 25 ERRORS 


MOV RP), 


R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG 


sWRITE CHARACTERISTISC FAILED 
TRAP 


.WORD 315 
. WORD 


SEQ 205 
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CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 108-1 SEQ 204 
TEST 2: REREADS 
043042 011676 -WORD SFIMSG 
8047 043044 26%: CKLOOP ;LOOP IF SELECTED 
seae 043044 104406 TRAP CSCLP1 
8049 F PARARAHRARARAREAEASEAEAEHEAEHAREEAEAEEEEEHASEAEEADEEEAEEEEEESA LEEDS 
8050 ; 
64: ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
2 
8053 jf PHHRAAAARAAAESAAAEEARADEAAEAAASEAEADESEEEASEEHEEESEEEEHKEEEEASLEEEEEE 
8054 
8055 043046 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
8056 0435052 016501 000000 MOV TSSRCRS),R1 ;GET TSSR 
8057 043056 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 
8058 043062 103407 BCS 30$ ;BR, IF NO PROBLEM 
8059 0435064 010004 MOV RO,R4 ;-ACKET ADDRESS SET UP 
8060 043066 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
8064 043072 ERRHRD ERRNO, T26RWN,PKTSSR ;sREWIND NOT ACCEPTED 
043072 104456 TRAP CSERHRD 
043074 000472 -WORD 314 
043076 047414 -WORD T26RWN 
043100 011710 .WORD PKTSSR 
8065 043102 30$: CKLOOP ;LOOP IF SELECTED 
eons 043102 104406 TRAP CS$CLP1 
8067 j PORAAEAEASASSSASEEASESESAEAAAESALESEDOESEEEAEEEEEEEEEEEEEEEEEEEEDES 
8068 ; 
ot ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
aeok 5 000000000000000000000000000000000000000000000000000000000000000000 
2 
8073 043104 013701 045756 MOV T26BFR+6,R1 ;PICK UP XSTO 
8074 043110 010102 MOV R1,R2 ;SET UP EXPECTED 
8075 043112 052702 000002 BIS @BIT1,Re2 ;SET BOT BIT IN EXPECTED 
8076 043116 020102 CMP R1,R2 ;D0ES EXP = REC'D 
8077 043120 001406 BEG 40$ ;BR, IF EQUAL (OK) | 
8078 043122 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
8082 043126 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
043126 104456 TRAP CSERHRD 
043130 000473 -WORDB 315 
043132 047125 . WORD T26B0T 
043134 016360 -WORD EXPREC 
8083 043136 40$: CKLOOP ;LOOP IF SELECTED 
043136 104406 TRAP CsCLPl 
8084 043140 012703 000400 MOV 9256. ,R3 sRECORD SIZE 
oo 043144 013737 003072 046062 MOV FREE, T26R8 ;STARTING WRITE BUFFER ADDRESS 
ol 5s PEPARAASEASEAAEAEAEHESEASEEAEESSEREEEEEADESSEEEEEHEEEDESEEEEAESEEEEE 
; 
8089 ;sWRITE DATA,CVC=1,ACK COMMAND 
ote , 60:0000000000000000000000000008000000000000000000000000000000000086 
2 
8093 043152 012737 140005 046060 MOV #140005, T26PK3 ;sWRITE DATA,CVC=1,ACK COMMAND 
8094 043160 012704 046060 MOV ¢T26PK3,F4 ;SET UP R4 WITH POCKET ADDRESS 
8095 043164 65%: 
8096 043164 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 
8097 043170 010465 177776 MOV R4, TSOBCRS ) ; ISSUE COMMAND 
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ZTKGA_TK-25 FRT END FUNC @3 
Ta 2: REREADS SEQ 205 


8098 043174 004737 017134 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

8099 043200 016501 000000 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 

8100 043204 012702 000200 MOV ossR, ;SET UP EXPECTED 

8101 043210 020102 CMP R1,R2 ;ARE THEY EQUAL 

8102 043212 001406 BEQ 75$ ;BR, IF OK 

8103 043214 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

8107 ;SOFT ERROR GENERATED BECAUSE THE 

8108 ;WRITE COMMAND IS NOT BEING CHECKED 

8109 sHERE. IT WAS CHECKED IN LEAH? 

8110 043220 ERRSOFT ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
043220 104457 TRAP CSERSOFT 
043222 000474 .WORD 316 
043224 005011 .WORD WRTERR 
043226 011710 .WORD PKTSSR 

8111 043230 753: CKLOOP s;LOOP IF SELECTED 
043230 104406 TRAP CSCLP1 

tt 043232 120$: 

8114 p PEA RARADEHRHARHEHEAEEEAAHRERHARHARERAHRAAAEAHRHERHRAROARHAAAHHARHAAAHRH HARD AEHESD 

8115 3 

ty ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

° 

8118 SA PHREAAEAREEEAEHESEAHAARHERHEHEHARERHAKEAEAEHEEAEEAREHEAAEAERERHEHS CR HREEE 

8119 

8120 043232 004737 010444 JSR PC ,REWIND ;CALL_ TAPE REWIND COMMAND 

8121 043236 016501 000000 MOV TSSRC(RS),R1 s;GET TSSR 

8122 043242 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 

8123 043246 103407 BCS 130$ ;BR, IF NO PROBLEM 

8124 04 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 

8125 043252 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

8129 043256 ERRHRD ERRNO, T26RWN,PKTSSR S REWIND NOT ACCEPTED 
043256 104456 TRAP CSERHRD 
043260 000475 .WORD 317 
043262 047414 .WORD T26RWN 
043264 011710 .WORD PKTSSR 

8130 043266 130$: | CKLOOP ;LOOP IF SELECTED 

te 043266 104406 TRAP CSCLP1 

th Ss SSSASSSASSAASESSESEAEASASAASDEASEABASESALASEASSESASEAEAEHESESEAEEEEEEESEESE 

; 
tee ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
; 
tt s SSASASASSASASESAESAAEASASASSSASEASSESSESSSESESESSASSESAASOESESESESEEASAALADEEES 
1 

8138 043270 013701 045756 MOV T26BFR+6,R1 ;PICK UP xSTO 

8139 043274 010102 MOV 1,R2 ;SET UP EXPECTED 

8140 043276 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

8141 043302 020102 CMP R1,R2 ;D0ES EXP = REC'D 

8142 043304 001406 BEQ 135% :;BR, IF EQUAL (OK) 

8143 043306 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

8147 043312 ERRHRD ERRNO, T2680T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
043312 104456 TRAP CSERHRD 
043314 000476 .WORD 318 
043316 047125 .WORD T26B80T 
043320 016360 .WORD EXPREC 

8148 043322 135%: | CKLOOP ;LOOP IF SELECTED 
043322 104406 TRAP CSCLP1 
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Fes ot REREADS — 

8149 043324 012703 001000 MOV #512. ,R3 sRECORD SIZE 

ter 043330 013737 003072 046062 MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 

8152 | SRAAAEAASAAAEAAASERESAREAAREAAAAEHAAEDASEREEADAEEREDAREREARERERELSE 

8153 ; 

a4 ;REREAD NEXT,ACK,CVC#1,0PP<1 

. 

8156 j SRS EAARAAEASEHAEAEAEREAEAEEEAEERADDEEDEEDEEEDEEEEEODEAEEAODDREDEREDEESE 

8157 

8158 043336 012737 161401 046060 MOV #161401, T26PK3 sREREAD NEXT,ACK,CVC=1,0PP=1 

8159 043344 012704 046060 165$: MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

8160 043350 010337 046066 MOV R3,T26S2Z ;SET UP RECORD SIZE IN PACKET 

8161 043354 010465 177776 MOV R4, TSOBC(RS) ; ISSUE COMMAND 

8162 043360 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 

8163 043364 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

8164 043370 012702 100204 MOV @SSR!ISC!BIT2,Re2 ;SET UP EXPECTED 

8165 043374 020102 CMP Re ;ARE THEY EQUAL 

8166 043376 001406 BEQ 170$ ;BR, IF OK 

8167 043400 004737 020116 JSR PC ,.FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

8171 043404 ERRHRD ERRNO, T26TRL,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
043404 104456 TRAP CSERHRD 
043406 000477 . WORD 319 
043410 050472 . WORD T26TRL 
043412 011710 . WORD PKTSSR 

8172 043414 170$: CKLOOP ;LOOP IF SELECTED 

avs 043414 104406 TRAP CSCLP1 

8174 5 OO OO04646460000466646046464646064646464666046460600606006006040064644604646604460446064608% 

8175 ; 

oF ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

N 
aoe 5 OOOO 00404400640646606646046664660460646046464000604644646646460004646404646400646444 
i ’ 

8180 043416 013701 045756 MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 

8181 043422 010102 MOV R1,R2 ;SET UP EXPECTED , 

8182 043424 052702 040000 BIS #BIT14,R2 ;SET THE RLS BIT IN EXPECTE 

8183 043430 020102 CMP R1,R2 ;ARE THEY EQUAL 

8184 043432 001406 BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 

8185 043434 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

8189 043440 ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
043440 104456 TRAP CSERHRD 
043442 000 . WORD 320 
043444 050322 . WORD T26LO0P 
043446 016360 . WORD EXPREC 

8190 043450 180$: 

8191 043450 013701 045754 MOV T26BFR+4,R1 ;sPICK UP RESIDUAL BYTE COUNTER 

8192 043454 012702 000400 MOV $256. ,R2 ;THIS SHOULD BE THE DIFFERENCE 

8193 043460 020102 CMP R1,R2 :;IS THE DIFFERENCE CORRECT 

8194 043462 001405 BEQ 190$ ;B8R, IF CORRECT 

8198 043466 ERRHRD ERRNO, T26PBP,EXPREC ;RBPCR NOT CORRECT 
043466 104456 TRAP CSERHRD 
043470 000500 . WORD 320 
043472 050404 . WORD T26PBP 
043474 016360 . WORD EXPREC 

8199 043476 190%: CKLOOP ;LOOP IF SELECTED 
043476 104406 TRAP CSCLP1L 

8200 043500 012703 001000 MOV #512.,R3 sRECORD SIZE 


M16 
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94s 043504 013737 003072 046062 MOV FREE , T26RB8 sSTARTING READ BUFFER ADDRESS 

8203 f SPARAAAEAAHAAASAASASASAREASESAREHEEEAAEAACEREAAAREEAREEAAEREREDEERELG 

8204 ; 

8205 ;sREREAD NEXT,ACK,CVC#1,0PP=0 

8206 - 

8207 § FSAAASASASSAASRAAREAAAAASARALEALASASAAASAASSEEAESEHEAASEEEEEASEEASDEALEEDRSE 

8208 

8209 043512 012737 141401 046060 MOV 141401, T26PK3 sREREAD NEXT,ACK,CVC#1,0PP=0 

8210 043520 012704 046060 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 

8211 043524 010337 046066 MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

8212 043530 010465 177776 MOV R4, TSOBCRS) s; ISSUE COMMAND 

8213 043534 004737 017134 JSR PC ,WALTF ;WAIT FOR SSR TO SET ‘ 

8214 043540 016501 000000 MOV TSSRCRS), Ri ;GET TSSR CONTENTS 

8215 043544 012702 100204 MOV @SSR!SC!BITe2, Re ;SET UP EXPECTED 

8216 043550 020102 CMP ° ;ARE THEY EQUAL 

8217 043552 001406 BEQ 270$ ;BR, IF OK 

8218 043554 004737 020116 JSR PC ,FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 

8222 043560 ERRHRD ERRNO, T26TRL,PKTSSR STSSR INCORRECT AFTER READ DATA 
043560 104456 TRAP CSERHRD 
043562 000501 . WORD 321 
043564 050472 . WORD T26TRL 
043566 011710 . WORD PKTSSR 

8223 043570 270%: CKLOOP ;LOOP IF SELECTED 

— 043570 104406 TRAP CSCLP1 

8225 f PAAAAASASHHAASEAEASEEASASAASEARASESLSESOAAAEEEAREHEEAAEAEAEEEEDEEEEEEEEDSE 

8226 ; 

aod ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

‘ 
ah S PAARASSAAHAASSEAASHAREASEASEHESEEEASELESESASESLAAEASESAEEEAEEASEADAES 
230 

8231 043572 013701 045756 MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 

8232 043576 010102 MOV R1,R2 ;SET UP EXPECTED 

8233 043600 052702 040000 BIS #BIT14,Re2 ;SET THE RLS BIT IN EXPECTED 

8234 043604 020102 CMP R1,R2 ;ARE THEY EQUAL 

8235 043606 001406 BEQ 280$ ;BR, IF EQUAL CALL IS WELL) 

8236 043610 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

8240 043614 ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
043614 104456 TRAP CSERHRD 
043616 000502 . WORD 322 
043620 050322 . WORD T26L0P 
043622 016360 .WORD EXPREC 

8241 043624 2808: 

8242 043624 013701 045754 MOV T26BFR+4,R1 ;PICK UP RESIDUAL BYTE COUNTER 

8243 043630 012702 000400 MOV $256. ,R2 ;THIS SHOULD BE THE DIFFERENCE 

8244 043634 020102 CMP R1,R2 ;IS THE DIFFERENCE CORRECT 

8245 043636 001405 BEQ 290$ ;BR, IF CORRECT 

8249 043642 ERRHRD ERRNO, T26PBP,EXPREC ;RBPCR NOT CORRECT 
043642 104456 TRAP CSERHRD 
043644 000502 . WORD 322 
043646 050404 . WORD T26PBP 
043650 016360 . WORD EXPREC 

8250 043652 290%: CKLOOP ;LOOP IF SELECTED 
043652 104406 TRAP CSCLP1 

8251 043654 ENDSUB ;>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
043654 L10062: 


Bi 


CZTKGA TK-25 FRT END FUNC @5 MACRO M1200 20-APR-84 06:15 PAGE 106-5 SEQ 206 
TEST 2: REREADS 
043654 104405 TRAP CsESus 
8252 043656 023727 002170 000051 CMP FATFLG,@25. sIS ERROR COUNT AT 25 
8253 043664 002402 BLT 99998 s58R, IF LESS THAN 25 
8254 043666 004737 020170 JSR PC ,CKDROP sTRY TO DROP THE UNIT 


8255 045672 999%: 


043756 
043762 


000503 
003550 
011676 


012704 


004737 
103407 


TES H ON ReReABE ENO FUNC #5 


003100 


016660 
020116 


045730 


010342 


C1 
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’ 
sTEST 2, SUBTEST 13 


s TERMINATION (TC*4 OR 5) WITH NXM=*1 AND THAT THE TAPE 
sIS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
sOF REREAD PREVIOUS/NEXT AND OPP*0/1 ARE TESTED. 


BGNSUB 


TST 
BEQ 


KTFLG 
108 


DIALOG NXM PATCH 


200% 

PC, T26REST 
T26CNT 

PC, T26RT2 
PC. T26RTS 


SEQ 209 


g>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.153: 


TRAP 
;CHECK FOR KTI1 
;8R, IF NO KT11 


3NXM PATCH 
sSKIP TEST IF KTil 
sSET COMMAND PACKET 


sSET UP OTHER COMMAND PACKET 


: 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
8 2 O8O606086 008866666068 660206666066606606606660600666606606666600060660666606 


208: 


MOV 


Cs6SU8 


PC ,SOF INIT s00 INITIALIZE ON CONTROLLER 
20% 3BR IF INIT WAS OK 
PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
RO,R1 sCONTENTS OF TSSR REGISTER 
ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS — 

. WORD 

. WORD 

. WORD 
@T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


§ 2S O8O8 6606666666 0660686066606666666606660666468666060606066686666060066000086 


i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


é 
89 OO OO6 666646466646 666066666666060606606666606066060660666060066006064060606606006866 


JSR 
BCS 


PC ,.WRICHR 
26% 


sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 


GEIYSA, MGeRERBE ENO FUNC 


D1 
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SEQ 210 


8311 043764 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
8315 043770 010001 MOV RO,R1 ) SAVE CONTENTS OF TSSR 
8316 043772 ERRHRD ERRNO,WRITMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
043772 104456 TRAP CSERHRD 
043774 000504 . WORD Bea 
043776 004754 . WORD WRTMSG 
044000 011676 . WORD SF IMSG 
8317 044702 26%: CKLOOP ;LO0P IF SELECTED 
— 044002 104406 TRAP CSCLPl 
8319 § SSSSSSSHSSEHSSHESSHSSHSEHOSSEEHEEEEESCEEEEAEHEEEEEEEEEEEKEEEEEEEEOEEEOEE 
8 : 
tet: sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
8323 andeagebnnanteneeansensbdaneenieenemimbidtebenhnlidinnimteteidieen 
8324 
8325 044004 004737 010444 JSR PC ,REWINOD ;CALL TAPE REWIND COMMAND 
8326 044010 103411 Bcs 30% ;B8R, IF NO PROBLEM 
8327 044012 016501 000000 MOV oes Ri :GET TSSR 
8328 044016 010004 MOV RO,R sPACKET ADORESS SET UP 
8329 044020 004737 020116 JSR PC FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
8333 044024 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
044024 104456 TRAP CSERHRD 
044026 000505 . WORD 325 
044030 047414 . WORD T26RWN 
044032 011710 . WORD PKTSSR 
8334 044034 308: CKLOOP sLOOP IF SELECTED 
9395 044034 104406 TRAP CSCLP1 
aeee 8220066660066 6666666660666666666666666 6666660666666 6060660606664666466 
: 
cane sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
Seat Ne eT ee Te 
8342 044036 013701 045756 MOV T26BFR+6,R1 sPICK UP xSTO 
8343 044042 010102 MOV R1,R2 ;SET UP EXPECTED 
8344 044044 052702 000002 BIS @BIT1,.R2 sSET BOT BIT IN EXPECTED 
8345 044050 020102 CMP R1,R2 sD0ES EXP = REC'D 
8346 044052 001406 BEQ 403 ;BR, IF EQUAL (OK) 
8347 044054 004737 020116 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
8351 044060 ERRHRD ERRNO, T26B0T ,EXPREC , TAPE NOT AT BOT AFTER REWIND 
044060 104456 TRAP CSERHRD 
044062 000 . WORD 326 
044064 047125 . WORD T2680T 
044066 016360 . WORD EXPREC 
8352 044070 403: CKLOOP ;LO0OP IF SELECTED 
044070 104406 TRAP CSCLP1 
oaks 044072 013737 003072 046062 MOV FREE , T26RB sSTARTING WRITE BUFFER ADDRESS 
coat § OOOO 6 066686 6466606666666466646066666666466666606666464660606606466060460006466 
; 
eH sWRITE DATA,CVC*1,ACK COMMAND 
a PI RE ST CL SE en EP aT RETNA 
8361 044100 012737 140005 046060 MOV #140005, T26PK2Z sWRITE DATA,CVC=#1,ACK COMMAND 


El 


A_TK-25 F- F r) MA “ . : ‘ 
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8362 044106 012704 046060 MOV @T26PK3,R4 :SET UP R4 WITH PACKET ADDRESS 

8363 044112 012737 000400 046066 65%: MOV #256. ,T26SZ sSET UP RECORD SIZE IN PACKET 

8364 044120 013777 046106 136744 MOV T26CNT , OF REE sMOVE TAPE RECORD NUMBER TO BUFFER 

8365 044126 062737 000001 046106 ADD #1, T26CNT sNUMBER READY FOR NEXT RECORD 

8366 044134 010465 177776 MOV R4, TSOB(RS) s ISSUE COMMAND 

8367 044140 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 

8368 044144 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

8369 044150 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

8370 044154 020102 CMP R1,R2 sARE THEY EQUAL 

8371 044156 001406 BEQ 75% :8R, IF OK 

8372 044160 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

8376 sSOFT ERROR GENERATED BECAUSE THE 

8377 sWRITE COMMANDO IS NOT BEING CHECKED 

8378 sHERE. IT WAS CHECKED IN LEAH? 

8379 044164 ERRSOFT ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
044164 104457 TRAP CSERSOFT 
044166 000507 -WORD 327 
044170 005011 .WORD WRTERR 
044172 011710 .WORD PKTSSR 

8380 044174 75%: CKLOOP ;LOOP IF SELECTED 
044174 104406 TRAP CSCLP1 

8381 044176 022737 000013 246106 CMP @11.,T26CNT ;CHECK NUMBER OF RECORDS WRITTEN 

8382 044204 001401 BEQ 120% ;BR, IF AT END OF WRITE SEQUENCE 

8383 044206 000741 BP 65% sWRITE MORE RECORDS 

8384 044210 1208: 

$305 044210 005037 046106 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 

ooo § SSSSSHSSEHSESSSSHEESSAEESESESESASESESEESEASEASEEASEAEAEEHEEAEEAEEAOOOARES 

é 
ooee ; ISSUE REWIND COMMAAD TO SELECTED TAPE ORIVE 
: 

ae 8 9OOO866 60686 6066606006 66060606660666606606066660666666606606664666606666466666 

8393 044214 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

8394 044220 103411 BCS 1308 :;BR, IF NO PROBLEM 

8395 044222 016501 000000 MOV TSSRC(RS),R1 ;GET TSSR 

8396 044226 010004 MOV RO,R4 sPACKET ADDRESS SET UP 

8397 044230 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

8401 044234 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
044234 104456 TRAP CSERHRD 
044236 000510 .WORD 328 
044240 047414 .WORD T26RWN 
044242 011710 .WORD PKTSSR 

8402 044244 130%: | CKLOOP ;LOOP IF SELECTED 

aaa 044244 104406 TRAP CSCLP1 

cose 39280666066 6646666666646666666666666666066666664666666466606646646066400046 

‘ 
ooet sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
Hy 

nook § S680 666 606666666066066666660666666666 6064606666666 6066646646660040464046046046 

8410 044246 013701 045756 MOV T26BFR+6,R1 ;PICK UP xSTO 

8411 044252 010102 MOV R1,R2 ;SET UP EXPECTED 

8412 044254 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 


8413 044260 020102 CMP R1,R2 sD0ES EXP = REC'D 
8414 044262 001406 BEQ 140% sBR, IF EQUAL (OK) 


2: REREADS 


8415 
8419 


012737 
012737 


0115357 


011710 
104406 


012737 


CZTKGA TK-25 FRT END FUNC @5 
TEST 


020116 


046076 
177376 
000077 
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046062 
046064 


046066 


046060 
046066 


046062 


ra 


SEQ 212 


JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26B80T ,EXPREC S TAPE NOT AT BOT AFTER REWIND 
TRA CSERHRD 
-WORD 329 
-WORDB T26B80T 
WORD EXPREC 
140%: CKLOOP s;LOOP IF SELECTED 
TRAP CSCLP1 
MOV @T26RN,RS5 sCOMMANO BUFFER ADDRESS 
150%: MOV 0177376, T26RB sSTARTING READ BUFFER ADDRESS 
MOV 0000077, T26RB+2 sSET UP HIGH ORDER ADDRESS BITS 
j PROAEEESEEEEEEEEAEEEEEEEREEEAEESEEEEAEEDEEEEDEEESEEEEEEEEOEEEEEEEEE 
& 
sREREAD DATA,IE,ACK, OPP COMMAND 
: 
Wrrvrririrrirritirriiriiiririitiviititiititittitiitiitiiirirrir yyy) 
MOV CR3), T26PKS sREREAD DATA,IE,ACK, OPP COMMAND 
165%: MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV #256. , T26SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R ;GET TSSR CONTENTS 
MOV OSSRINXMISCIBITS, R2 3SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 1708 ;BR, IF OK 
BIT (R3), eBITS sCHECK FOR A READ COMMAND 
BEQ 168% ;BR, IF IT WAS A READ COMMAND 
BIT R1,0BIT1 sWAS BIT1 SET 
— BNE 170$ ;BR, IF REREAD ANO BIT1 SET 
JSR PC .FATCHK ;INC ANO CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26RRF ,PKTSSR ;TSSP INCORRECT AFTER a DATA 
TRAP CSERHRD 
-WORD 3350 
“WORD  T26RRF 
.WORD PKTSSR 
170%: | CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 


Ss SSSSSSSHESSESSSSSSESSSHEASSESHSSESESEASESSESSESASESSESEEHESEHHESEEEEEESEEEEESS 


5 

sREAD DATA, ACK,CvC=1 COMMAND 

a 
Wrrvrrrrirririrrirrirriitirriitititriiiiiritiiiiriititiiiiiiiii iy) 


MOV #140001 , T26PKS sREAD DATA, ACK,CVC*1 COMMAND 
MOV @256.,126SZ sSET SIZE INTO PACKET 

CLR T e2 ;CLEAR OUT HIGH ADORESS BITS 
MOV FREE , T26RB8 sGIVE READ A GOOO BUFFER 

MOV R4,TSOBCRS) s ISSUE READ DATA COMMAND 

JSR »WAITF ;WAIT FOR SSR 

MOV TSSRCRS),R1 sPICK UP THE TSSR 

MOV @SSR ,R2 ;SET UP EXPECTED 

CMP R1,R2 ;IS THE TSSR OK 

BEQ 180% ;BR, IF TSSR OK (GOOD) 


GELYCA, TK ERE ARS END FUNC #3 


8468 
8472 


044470 
044474 


004737 020116 


136360 
000001 


020116 


011710 
104406 


045756 
000002 


013701 
2 


020116 


Gl 
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JSR 
ERRHRD 


PC ,FATCHK 
ERRNO ,.RDERR ,PKTSSR 


1808: 


OF REE ,R1 
#1,R2 
R1,Re2 
1908 
PC ,.FATCHK 
CRRNO, T26WNG , -XPREC 


190$: CKLOOP 


SEQ 213 


NC AND CHECK FOR MORE THAN 25 ERRORS 


iI 
;READ DATA COMMAND FAILED 


sLOOP IF SELECTED 


TRAP 
sFIRST WORD FROM READ BUFFER 
sSET UP EXPECTED 
sIS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 


F SSSHSSSSSSSSHASASSESOSSESSESESESESSSESSSEHSESSOSESOEESHSESEASEAEESESESEEESEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


. 
§ SSSSSSSHSASSSSASSSHESESESEEEEEESESESEEOESEEEEEEEEEEEEESEEEEEESEEEEESE 


JSR PC ,REWINO 
BCS 194% 
MOV TSSRCRS),R1 
MOV RO,R4 

PC ,.FATCHK 


JSR 
ERRHRD ERRNO, T26RWN,PKTSSR 


1948; CKLOOP 


§ PSSSSSSESSSSSSSSSSSSESSSSESEASHESESHEOSESSSESESEEESEESEEESESEEEEEEEEEEEEES 


6 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


§ SSSSSSOHEESSSESESEESESEEEESEEEESESESESEEEESEEEEESEEESOSEEESEESEESHEEEESEESEE 


MOV T26BFR+6,R1 
MOV R1,Re2 

BIS oBIT1,R2 
CMP R1,Re2 

— 96 


JSR PC ,FATCHK 
ERRHRD ERRNO, T26B80T ,EXPREC 


sINC AND CHECK FOR MORE THAN 
3; TAPE POSITION INCORRECT 
TRAP 
. WORD 
. WORD 
. WORD 
TRAP 
;CALL TAPE REWIND COMMAND 
BR, a -¥ PROBLEM 
;GET T 
sPACKET ADORESS SET UP 
3; INC ANO CHECK FOR MORE THAN 
; REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TREP 
;sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sINC ANDO CHECK FOR MORE THAN 


;TAPE NOT AT BOT AFTER REWIND 


25 


25 


25 


CsCLP1 


CsCLP1 


ERRORS 


CsERHRD 
334 
T26B0T 
EXPREC 


Tee oT REReABS ENO FUNC es 


044624 
044624 
044626 


044670 


104406 
010302 


012703 


000001 
010144 


177777 


002170 
020170 


Hi 
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196$:; CKLOOP sLOOP IF SELECTED 
TRAP CSCLPi 
MOV R3,R2 sSAVE R3 FOR A MOMENT 


000031 


fA SHREH SAAAHRAAAREAHHHAAAEEHHRHAEHAEHAEEHENSEHRHADEDESAROHHMACHE SEHK AHARE SHEE 


c 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1 "REVERSE 


; 
PPAR EAEHAAEEE SHAE HEAL EHEAKSHE HAHA EEREHSHERHHAKREHKHEHREKSHADRA HH ARKE KKH AHS 


MOV @1,R3 ;SPACE ONE RECORD 
JSR PC, SPACE ;CALL SPACE ROUTINE 
MOV R2,R5 sRESTORE RS 
TST (R3)> ;BUMP COUNTER 
CMP (R3),0177777 s;END OF COMMAND BUFFER YET 

eens BNE 150$ sMORE COMMANDS KEEP GOING 
ENDSUS 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L100635: 
TRAP CsESUB 

CMP FATFLG, 25. ;IS ERROR COUNT AT 25 
BLT 999% ;B8R, IF LESS THAN 25 

999 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

$: 


1€ 


TKGA TK- 
ST 2: R 


8592 


044670 
044670 
044670 
044672 
044674 
044700 
044704 


011676 


012704 


011676 
104406 


EReane END FUNC @3 


050650 
050742 
051004 


016660 
020116 


045730 


010342 
029116 


Il 
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3¢ 
i 
sTEST 2, SUBTEST 14 


: 

sVERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 
sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
;CREAD REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
sPOSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
3 

; 

: 

3¢ 


BGNSUB 3 >>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.14: 
TRAP CsBSUB 
CLR RS ;CLEAR TEST COUNTER 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RT3 ;SET UP OTHER COMMAND PACKET 


j POAOSAEEEEAESEEASESEESEAAEDEEEEREDEEEEAEDREEEEEEADDOEDEDEDEDEEEEEEDS 
« 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3 


5 SSS OSO8O644864E446840646646006646066466064066646640460640064066460066464646466664 


JSR PC ,SOF INIT 3:00 INITIALIZE ON CONTROLLER 

BcS 20$ ;8R IF INIT WAS OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 335 
. WORD SF IERR 
. WORD SF IMSG 

20%: 
MOV @T26PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


§ 2 OS6O606806066666406664606606466460666606066606660666666406666 0660604664666 0686 


: 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
S29 806668646666466646666464666646464666666666464666406466646646664648 6066640604606 0686 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 25% ;BR, IF COMMAND ISSUED OK 

JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORDB 336 
-WORD  WRIMSG 
-WORD SFIMSG 

25%: CKLOOP ;LOOP IF SELECTED 

TRAP CscLPl 


Jl 
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TEST 2: REREADS 
8593 
8594 § SSHHASASAAAHAAASEEASEHRAAEAAAELASASASEEEEEAEEEEEAEAEESEES LEREERERAEEE 
8595 ; 
ste ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
8598 s APAAASEESEEASESESEEARESEEEAEESEREHREREAEEEEEEOEREDAEEASEDAEEEDEREREES 
8599 
8600 044766 004737 010444 26%: JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
8601 044772 016501 000000 MOV TSSRCRS),R1 ;GET T 
8602 044776 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
8603 045002 103407 BcS 30$ ;8R, IF NO PROBLEM 
8604 045004 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
8605 045006 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
8609 045012 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
045012 104456 TRAP CSERHRD 
045014 000521 . WORD 37 
045016 047414 . WORD T26RWN 
045020 011710 . WORD PKTSSR 
8610 045022 30$: CKLOOP ;LOOP IF SELECTED 
ask 045022 104406 TRAP CSCLPl 
8612 § FSSSASSSHSHASESESASASASEAAASEAREESESEAAELEASASEEAESEAEEAEEAEEEEEREADEEDEED 
8613 : 
asia sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
att IS en OE SNE TT eS a 
1 
8618 045024 013701 045756 MOV T26BFR+6,R1 sPICK UP xSTO 
8619 045030 010102 MOV R1,R2 ;SET UP EXPECTED 
045032 052702 000002 BIS eBIT1,.R2 ;SET BOT BIT IN EXPECTED 
8621 045036 020102 CMP R1,R2 ;D0ES EXP = REC'D 
8622 045040 001406 BEG 40$ ;6R, IF EQUAL (OK) 
8623 045042 004737 020116 JSR PC .FATCHK ; INC ANDO CHECK FOR MORE THAN 25 ERRORS 
8627 045046 ERRHRD ERRNO, T26B0T,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
045046 104456 TRAP CSERHRD 
045050 000522 . WORD 338 
045052 047125 . WORD T26B0T 
045054 016360 . WORD EXPREC 
8628 045056 40$: CKLOOP ;LOOP IF SELECTED 
045056 104406 TRAP CSCLP1 
8629 045060 012737 000400 046066 MOV 0256. .,T26SZ ;SET UP RECORD SIZE IN PACKET 
8630 045066 013737 003072 046062 MOV FREE , T26RB8 s;ADORESS OF READ BUFFER 
8631 045074 005703 TST R3 ;CHECK NUMBER OF TIMES THROUGH HERE 
ae 045076 001404 BEQ 50% ;BR, IF FIRST TIME THROUGH HERE 
or S SSSSSSSSSESSSASSSESESESAEHASSEESAESSEESHAEASCASESAAEEEEEKAEAKREKREAEEAEEEAEESE 
: 
oat: sREREAD,CVC*1,ACK COMMAND 
a. POE CA LI PITT See CN A A TPE RE aD 
8640 045100 012737 161001 046060 MOV #161001, T26PK3 sREREAD,CVC*#1,ACK COMMAND 
areas 045106 000403 BR 55% ;SKIP NEXT COMMAND 
ee S SSSSHSSESSEHEHASEASEHEEESSEEESESASEHESEHEEEESEEESEEEEEHEAEHEEKEASELEADEALAEEDEER 
4 ; 
8645 ;REREAD,ACK COMMAND 


Kl 
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8646 : 
8647 js PERARAREHAAAEEEEAEEEEEAEASEEEEERSAAEESEEESEAEEEEAEEEEEEDAREEEEEADS 
8648 : 
8649 045110 012737 141001 046060 50$: MOV #141001, T26PK3 sREREAD,ACK COMMAND 
8650 045116 555: 
8651 045116 012704 046060 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
8652 045122 65$: 
8653 045122 010465 177776 MOV R4, TSDOBCRS) ; ISSUE COMMAND 
8654 045126 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
8655 045132 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
8656 045136 012702 100206 MOV @SSR!ISC!IBITL!IBIT2,R2 ;SET UP EXPECTED 
8657 045142 020102 CMP R1,R2 ;ARE THEY EQUAL 
8658 045144 001406 BEQ 75$ ;BR, IF OK 
8659 045146 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
8663 045152 ERRHRD ERRNO, T26WDE ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
045152 104456 TRAP CSERHRD 
045154 000523 . WORD 339 
045156 047053 . WORD T26WDE 
045160 011710 . WORD PKTSSR 
8664 045162 753%: CKLOOP ;LOOP IF SELECTED 
esas 045162 104406 TRAP CSCLPl1 
8666 {PERERA AEEEAESESERESESEEEEEASEEEEEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEES 
8667 2 
aoos ;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
2 
att s PAAHEAEEEEEAAAREAEESESESEASEEEESEEEEAEEESEEEEAEEEEEHEEEEEEEEEEEEES 
1 
8672 045164 013701 045756 MOV T26BFR+6,R1 ;GET XSTO STATUS WORD 
8673 045170 010102 MOV R1,R2 ;SET UP EXPECTED 
8674 045172 052702 002000 BIS #BIT10,Re2 ;SET THE NEF BIT 
8675 045176 020102 CMP R1,R2 ;ARE THEY EQUAL 
8676 045200 001406 BEQ 170$ ;BR, IF EQUAL (GOOD) 
8677 045202 004737 020116 JSR PC ,.FATCHK ; INC AND CHECK FOR MORE THAN 25 ERRORS 
8681 045206 ERRHRD ERRNO, T26NEF ,EXPREC sNEF SHOULD BE SET 
045206 104456 TRAP CSERHRD 
045210 000524 . WORD 340 
045212 046204 . WORD T26NEF 
045214 016360 . WORD EXPREC 
8682 045216 170$: 
8683 045216 005103 COM RS ;sRESET THE SWITCH 
8684 045220 001262 BNE 26% ;BR, IF FIRST TIME THROUGH HERE 
8685 045222 ENDSUB 
045222 L10064: 
045222 104403 TRAP CsESU8 
8686 045224 023727 002170 000031 CMP FATFLG, 25. :IS ERROR COUNT AT 25 
8687 045232 002402 BLT 999% ;B8R, IF LESS THAN 25 
8688 045234 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
‘ 8689 045240 999%: 


CZTKGA TK-25 FRT END FUNC @3 
TEST 2: REREADS 


8743 


045240 


045312 
045316 


011676 


012704 


011676 


016660 
020116 


045730 


010342 
020116 
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& 


3* 
5 
;TEST 2, SUBTEST 15 


; 

;VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE 
;REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
;CREAD REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
;sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
;NOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
;THE REVERSE INTO BOT (RIB) STATUS BIT SET. 

2 

: 

; 

,2 


BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T2.15: 
TRAP CsBSU8 
CLR T26CNU ;CLEAR OUT COUNTER 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC, T26RTe ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


PSSA ERHRESHE EK ARHAAEEREEHAAERHARAREEEKREKAEAEEEKAARAHREHACEHERALEAHAEH 


« 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


2 
PARE ORASEHRAEAHEASAHEARERARAREREARHAAEHEHEPARHREAERERAKRSEAHESHEEEERHEARARHEESH 


JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 


bcs 20$ ;8R IF INIT WAS OK 
JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 s;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CsERDF 
. WORD 341 
. WORD SFIERR 
. WORD SF IMSG 
208: 
MOV @T26PACKET , Ka ; SUBROUTINE NEEDS PACKET ADDRESS 


SS SSSAAAKEEADAEEAASHAAAEAKE eo “SCHHARAESESAHEHEAEHESEAHEHASHASDSEKASBALHEESE 


‘ 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
a 


JSR PC,WRTICHR ; ISSUE WRITE CHARACTERISTICS 


BCS 25% ;BR, IF COMMAND ISSUED OK 

JSR PC, —— : INC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 342 
.WORD  WRITMSG 
-WORD SFIMSG 


25%: CKLOOP ;LOOP IF SELECTED 


SEQ 218 


047414 
011710 


104406 


013701 


012703 


GEINCA,TKGeR GBI ENO FUNC 3 


P 045336 104406 


010444 
000000 
000200 


020116 


045756 
000002 


020116 


000001 
010144 
000000 
020116 


M1 


MACRO M1200 20-APR-84 08:13 PAGE 111-1 SEQ 219 


TRAP 


FS SSSSHHAHAAHRAEASASESASSEAEEREAASREEAAEEEESEASEEESEEEAEAASAAAEEREEESEEEES 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
§ FSSASSASSASHASSESSESEASEASEASEHAESEEASEEEEESEEEEEEAEHEEEEEESEEEEEEEEESE 


CsCLP1 


263: JSR PC ,REWIND ;sCALL TAPE REWIND COMMAND 
MOV TSSRCRS),R1 ;GET TSSR 
MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
BCS 30$ ;BR, IF NO PROBLEM 
MOV RO,R4 ;PACKET ADDRESS SET UP 
JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORDB 343 
-WORD T26RWN 
-WORD PKTSSR 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
j PORAEAEAHASEEESEREESEAEEEEEEDESEEEEEESEDEEEEEEEEDEEADADEEERERELEDS 
° 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
+ 
| PRARAAEESESEEEESESESEEEEEESERESESEESEREDEEEESEEEEESEDESEDEDESEEEES 
MOV T26BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;DOES EXP = REC'D 
BEQ > lt ;BR, IF EQUAL (OK) 
JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2680T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 344 
-WORD T2680T 
-WORD EXPREC 


40$: 
j PPRESEEEAEEAESEEEEEEAEEEEESESAEEEEEEESEESAEEEEAEEEEESSEEEEEDEEREES 


: 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


€ 
LR SERRARREEHRERAHERHERHAKEHAHAAHRESHEESHEHSHSEEHRHALERKARAKRHEEKRE HALA AHHE RED 


MOV #000001 ,R3 ;SET UP SPACE FORWARD 1 RECORD 

JSR PC, SPACE ; ISSUE SPACE COMMAND 

BCS 75$ 3BR, IF OK 

MOV TSSRCRS),R1 ;GET STATUS DATA 

MOV RO,R4 ;GET PACKET ADDRESS 

JSR PC ,FATCHK ;INC ANDO CHECK FOR MORE THAN = ERRORS 


ERRHRD ERRNO, T26WDE,PKTSSR ;TSSR INCORRECT AFTER ee 


CSERHRD 
.WORD 345 


ZTKGA_TK-25 FRT END FUNC #3 
EST 2: REREADS 


045540 
045546 


047053 
011710 


104406 


012703 


047053 
011710 


104406 
013737 
005737 
001404 


012737 
000403 


012737 


100001 
010144 


000000 
020116 


003072 
046110 


161001 


141001 
046060 
177776 
017134 
000000 


100204 


020116 


Ni 
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046062 


046060 


046060 


75$: 


CKLOOP 


SEQ 220 
-WORD T26WDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLP1 


ee 


; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - O=FORWARD 


ahaa nb eneanbteneeneanet 


175$: 


MOV #100001 ,R3 
JSR ATS aaa 
BCS 17 

MOV TSERCRS), Ri 
MOV RO,R4 

JSR PC ,FATCHK 
ERRHRD ERRNO, T26WDE , PKTSSR 
CKLOOP 

MOV FREE , T26RB 
TST T26CNU 

BEQ 176$ 


1=REVERSE 


sSET SPACE REVERSE 1 RECORD 

; ISSUE COMMAND 

;GO ON IF ALL IS WELL 

;GET TSSR CONTENTS 

;SCT UP EXPECTED (PACKET CONTENTS) 
;INC AND CHECK FOR MORE THAN 5 ERRORS 
;TSSR INCORRECT AFTER ~~ 


CSERHRD 
. WORD 6 
.WORD T26WDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLP1 


sADDRESS OF BUFFER 
;CHECK FOR TIMES THROUGH HERE 
;BR, IF FIRST TIME THROUGH 


§ 99960 064664668004664664664644666466466666466466666646464646646646646646466464646664664664% 


; 
sREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 


§ FSESSSASEAASESSSSESESESASESEEEASEEESAEEEEEEAES $6446446464646646464606064646466466466666 


MOV 


#161001, T26PK3 
BR 178$ 


sREREAD (PREVIOUS), IE,ACK,OPP=1 CMO. 
:SKIP NEXT COMMAND 


| POSSESS EEEEEEEEEEEEEEEEEOEEEO4O6664666606060056660600606006006406006484 
4 
sREREAD ,ACK,OPP=1 COMMAND 


« 
5 928608066 64666466646666646666466466666466466466646646646464646646664646646644664666 


176$: 
178$: 


MOV #141001, T26PKS 
MOV #T26PK3,R4 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR!SC!BIT2,R2 
CMP R1,R2 

BEQ at: 


PC ,FATCHK 
ERRHRD ERRNO, T26WDE , PKTSSR 


;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 


HECK FOR MORE THAN = ERRORS 
;TSSR INCORRECT AFTER READ DAT 
CSERHWRD 


TRAP 
-WORD 347 


CZTKGA 
TEST 


8851 


047055 
011710 


TK-25 FRT END FUNC @3 
2: REREADS 


046110 


002170 
020170 


01732 
031732 


Be 
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000031 


1808: 


1908: 


16338: 


T26BFR+14,R1 

R1,R2 

@BITO,R2 

R1,R2 

1908 

PC .FATCHK 

ERRNO, TO6NEF ,EXPREC 


T26CNU 
26% 


FATFLG,@25. 
999% 
PC ,CKOROP 


PC, TSTLOOP 
163% 


TST 


SEQ 221 
»WORD T26WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSsCLP1 


sGET XST3 STATUS WORD 

sSET UP EXPECTED 

THE NEF BIT 

;ARE THEY EQUAL 

IF EQUAL (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sNEF SHOULD BE SET 


TRAP CSERHRD 
-WORD 348 
-WORD T26NEF 
-WORD EXPREC 


sSET SWITCH THE OTHER WAY 
;6R, IF FIRST TIME THROUGH 
g>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
L10065: 
TRAP CsESuUs 

sIS ERROR COUNT AT 25 

;6R, IF LESS THAN 25 

sTRY TO OROP THE UNIT 


300 WE NEEO TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
CSExIT 


-WORD 110046-. 


125 ars 


046112 
046114 


TeeRe ake END FUNC 63 


014004 
045740 
000000 


000012 
045750 
000000 
000024 
000000 


140001 
141401 
161401 
177777 


000000 
000000 
000000 
000000 
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Co 


3° 
sLOCAL STURAGE FOR THIS TEST 


ihe 
.BLK 
T26PACKET: 


333 3333 


T26DATA;: 


. WOR 
T26BFR: .BLKW 


‘ 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
10-<, - TUV2AE7> 


.BLKB 
T26PKe2: 
. WORD 
. WORD 
. WORD 
. WORD 
.BLKB 
T26PKS: 
. WORD 
T26RB: 
T26WB: .WORD 
. WORD 
T26SZ: .WORD 
-EVEN 
$ 
T268F 2: 


WORD 
T26S3: .WORD 
é 


;TAPE MOTION PACKET COMMAND VALUES 


T26RN: .WORD 
. WORD 
. WORD 
. WORD 
T26CNT: .WORD 
T26CNU: .WORD 
T26RSZ: .WORD 
T26DLY¥: .WORD 


10-<, -TUV2AE7> 


14004 
ere 


10. 
T26BFR 
0 

20. 

0 

23. 


100006 
tthe 


6. 
10-<. - TUV2AE7> 


140005 


SEQ 222 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH CvC-1, ACK 
sADURESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, CvC=1 AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


3;B8SELO AREA 
sBSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 


sREAD DATA 

sREREAD NEXT OPP=0 
sREREAD NEXT OPP=] 
sENO OF DATA 


sTAPE RECORD COUNTER STORAGE AREA 
sTAPE RECORD COUNTER STORAGE AREA 
sRECORD STORAGE SIZE AREA 

sDELAY COUNTER AREA 


De 
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8937 
8938 3° 
R239 sLOCAL TEXT MESSAGES FOR TEST 
8940 - 
3942 
8943 046116 124 141 160 T26WNG: .ASCIZ ine. Position Incorrect After REREAD Previous (OPP=1): 
8944 046204 122 105 122 T26NEF: .ASCIZ ' AD PREVIOUS, At BOT, Failed To Set NEF (xSTO)’ 
8945 046266 124 123 1235 T26ROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
8946 046335 122 105 i122 T26RRF: .ASCIZ ‘REREAD Previous (Spece Reverse, Read Forward) Command Fai led’ 
8947 046432 122 105 122 T26RRG: .ASCIZ ‘REREAD Previous (Read Reverse, Space Forward) Command Fai led’ 
8948 046527 120 117 125 T26SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
8949 046611 122 111 102 T26LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
8950 046661 124 123 125 T26WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 
8951 046736 111 154 154 T26.0Q@: .ASCIZ ‘Ill l Mode Bite, Feiled To Set ILC Bit In xSTO’ 
8952 047017 122 105 122 T26SSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ 
8953 047053 124 123 125 T26WOE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
8954 047125 124 141 160 T26B80T: .ASCIZ ‘Tape Not At BOT After REWIND Commend’ 
8955 047172 104 141 164 T260TA: .ASCIZ ‘Date Written To Tape Not Equel To Date Read From Tape’ 
8956 047260 122 105 122 T26EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
8957 047337 124 123 125 T26TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
8958 047414 122 145 167 T26RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
8959 047463 122 101 115 T26RNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 
8960 047536 124 123 123 T26AM3S: .ASCIZ ‘TSSR Init. Feiled After REREAD COMMAND: 
8961 047605 104 162 151 T260FL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 
8962 047660 124 123 125 T26WO0: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
8963 047750 124 123 125 T26WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
8964 050023 103 126 103 T2é6vCK: .ASCIZ ‘CVC Set. Didn’''t Reset VCK In Buffer’ 
8965 050076 124 123 102 T26BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
8966 050151 127 122 111 T26WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
8967 050240 122 145 141 T26LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO' 
8968 050322 122 145 141 T26LOP: .ASCIZ ‘Reading Lene Record Failed To Set RLS Bit In xSTO’ 
8969 050404 122 145 165 YT26PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
8970 050472 122 145 141 T26TRL: .ASCIZ ‘Readi Long Record Failed To Give Tape Status Alert’ 
8971 050560 104 141 164 T26NEQ: .ASCIZ ‘Dete REREAD From Tape Not Correct, After Sw6=1' 
8972 050637 122 145 162 TST26I0: -ASCIZ ‘Rereads’ 
8973 .EVEN 
8974 3° 
8975 ; 
8976 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sad ;WRITE SUBSYSTEM MEMORY COMMAND 
i 
8979 3° 
8980 
8981 050650 T26REST: 
8982 050650 SAVREG sSAVE THE REGISTERS 
8983 050654 012701 045730 MOV @T26PACKET,R1 sSTART OF THE PACKET 
8984 050660 012721 140004 MOV #140004 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, CvC=1 
8985 050664 012721 045740 MOV @T2Z6DATA,(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 
8986 050670 005021 CLR CR1)> s EXTENDED ss 
8987 050672 012721 000012 MOV #10. ,CR1)-« sSIZE OF DATA BLOCK IN BYTES 
8988 050676 012721 045750 MOV @T26BFR, CRI)» sADDRESS OF MESSAGE BUFFER 
8989 050702 005021 CLR CR1)-o 
8990 050704 012721 000024 MOV @20.,(R1)> sLENGTH OF MESSAGE BUFFER 
8991 050710 005021 CLR CR1)> 
8992 050712 012711 000000 MOV @0,(R1) sSELECT ORIVE ZERO (0) 


8993 050716 012702 000030 MOV 024, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 


012762 


012721 


GEE LI*GRERBE ENO FUNC 08 


177777 045750 64%: 


T26RTe: 


T26RTS: 


EO 
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0177777, T26BFRCR2) 
-CR2) 


R2,00 
64$ 
PC 


@T26PKe ,R1 
@T26BF2,(R1)> 
CR1)> 
06.,CR1)>« 

CR 


SEQ 224 


sALL ONES — BUFFER 


sKEEP GOING UNTIL DONE 
sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVC1, 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRE TURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS OF DATA BLOCK 
ENDED ADORESS 


sEXT 
:;SIZE OF DATA BLOCK IN BYTES 
;RE TURN 


L10046: 


TRAP CsETST 


1é 


Caner ara 


E DATA RETR 


051102 


051106 
051106 
051106 
051106 
051110 
051114 
051120 
051124 
051132 


051136 
051142 
051144 
051144 
051150 


004737 
103426 


012727 
000000 


060654 
060746 
061010 
176750 
055676 


016660 


000250 


MACRO M1200 20-APR-84 08:13 PAGE 114 


002146 


002164 


055702 


re 


SEQ 225 


~SBTTL TEST 3: WRITE DATA RETRY 
. 


; THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
é 


i 

;THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 
e 

: 

: 

5° 


BGNTST - 

CLR FATFLG sCLEAR FATAL ERROR FLAG 

CLR KTFLG sHOLD OFF KT11 

MOV GEPRT2, EPRTSW sSECONDARY ERROR MESSAGE 

CLR K TENABLE sTURN OFF KT11 

JSR PC ,KTOFF ;TURN KT11 BACK OFF IF THERE 
MOV @TST27ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 3:00 INITIAL TEST SETUP 

MOV @1,LOOPCNT sPERFORM 1 ITERATIONS 

CLR T27CNT sCLEAR TAPE RECORD COUNTER 


3 * 


: 
sTEST 3, SUBTEST 1 
: 


‘ 

sVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 

; TERMINATION, — THE NON-EXECUTABLE FUNCTION (NEF ) 


sERROR BIT SET 
‘ 
€ 
3° 
T27LO0P : 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T3.1: 
TRAP CsBSUB 
JSR PC, T27REST ;SET COMMAND PACKET 
JSR PC.T27RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T27RTS ;SET UP OTHER COMMAND PACKET 
MOV #65000. , T27DLY ;SET UP DELAY COUNTER 
CLR T27CNT ;CLEAR COUNTER 
8 9O60666646060666660666066606606460666646460666606666600606066460006060460600068 
y 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
TR RT ee ee 
10$: JSR PC ,.SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20% ;B8R IF INIT WAS OK 
DELAY 250 ;DELAY ABOUT .<5 SEC 
MOV #250,(PC)>+ 
-WORDB O 


Ge 
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GELECAT AT TE bat eRe YRS CRO M1200 20 84 06:1 GE 114-1 SEQ 226 
051152 013727 002116 MOV LSOLY,CPC)>+ 
051156 000000 -WORD O 
051160 005367 177772 DEC -6(PC) 
051164 001375 BNE --4 
051166 005367 177756 DEC -22(PC) 
051172 001367 BNE --20 

9079 051174 005337 055702 DEC T270LY sBUMP COUNTER 
9080 051200 001356 BNE 10$ ;6R, IF COUNTER NOT DONE 
9081 051202 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9085 051206 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
9086 051210 ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
051210 104455 TRAP CSEROF 
OSi2i2 000455 . WORD 301 
051214 003550 - WORD SF IERR 
051216 011676 -WORD SFIMSG 
9087 051220 203: 
ee 051220 012704 055520 MOV @T27PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
9090 SF SHOAEEAESASESEAEEOESEEEEESHEEAEESEEEEAHEEEEEEEEDEEEEEKEEEEEEEEREES 
9091 ; 
ote sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
5 
9094 5 PORASOEOOOEEEOEEEEEEEOEOO4OO66666466066066646600060600000000600000006006 
9095 
9096 051224 004737 010342 JSR PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 
9097 051230 103407 BCS 25$ ;BR, IF COMMAND ISSUED OK 
9098 051232 004737 020116 JSR PC .FATCHK ;INC ANDO CHECK FOR MORE THAN 25 ERRORS 
9102 051236 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
9103 051240 ERRHRD ERRNO,WRTMSG,SFIMSG ;sWRITE CHARACTERISTISC FAILED 
051240 104456 TRAP CSERHRD 
051242 000456 . WORD 302 
051244 004754 -WORD WRTMSG 
051246 011676 -WORD SFIMSG 
9104 051250 25%: CKLOOP ;LOOP IF SELECTED 
onan 051250 104406 TRAP CsCLP1 
pe § OREO OOO 600646000460060666666066060606646066660606066000000006000006060000886 
8 
oo. ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
try § OOOO666666666080600666064606666664666646666066600600000060000600000000000086 
9112 051252 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
9113 051256 103407 BCS 30% ;BR, IF NO PROBLEM 
9114 051260 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 
9115 051262 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9119 051266 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
051266 104456 TRAP CSERHRD 
051270 000457 . WORD 03 
051272 057055 . WORD T27RWN 
051274 011710 -WORD PKTSSR 
9120 051276 30$: CKLOOP sLOOP IF SELECTED 
_— 051276 104406 TRAP CSCLPl 
9122 § PSOASEEEESEEEEEEEESEDESESEEEEEASEEEEEESEEEEOEEEEEEEEEEEEEDEEEEORES 


‘ 
9124 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


051422 


051424 
051430 
051432 
051436 
051440 
051442 
051446 
051446 
051450 


013701 
010102 


104406 
012737 
013737 


012737 
012704 


011710 
104406 


013701 
2 


TES ORT TENDATROREYNE °° 


055546 
000002 


020116 


000400 
003072 


020116 
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055656 
055652 


055650 


He 


SEQ 227 


zy 
§ PHSRAAHEAADAEEAESEAHRESAEHAEALALEESEAEEOAREEEOCHEEESEEEEEEEEEEREDALEOESE 


T27BFR+6,R1 
R1,R2 


40$: 


CKLOOP 


MOV 
MOV 


eBIT1,R2 


“0$ 


PC ,FATCHK 
ERRHRD ERRNO, T27B0T ,EXPREC 


@256.,T27SZ 


FREE, T27WB 


sPICK UP xSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

38R, IF EQUAL (OK) 

INC ANDO CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 


§ OOOO O0680646006040466046864866664664666466466666646066606666606066066000404606466 


a 
sWRITE DATA RETRY,ACK,CVC=1 COMMAND 


> 
§ 9980664846 806644 066446606666 046060660646004666606660606640666664664666466066 


758: 


CKLOOP 


atoTPRS: aman 


@T27PK 


Ri 
75% 


PC ,.FATCHK 
ERRHRD ERRNO, T27WOE ,PKTSSR 


1 
@SSR!SCIBIT1:B1T2, »R2 


TRAP CSERHRD 
-WORD 304 
-WORD T27B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
;SET UP RECORD SIZE 
sADORESS OF WRITE BUFFER 
sWRITE DATA RETRY,ACK,CVC=1 COMMAND 


:;SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


;8R, IF OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
WORD 305 
. WORD T27WDE 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPl 


§ 996 6666606466806 0666 06666660600666666606460666666466466460646466660606460600606686 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


° 
SF SSESHEASESEESEESESEEEEEEEEEEEEEEEEEHAEEEEEEEHAEEEEEEEEEEEEEKEEKOEDRELEEED 


T27BFR+6,R1 
R1 


PCF 


ATCHK 
ERRHRD ERRNO, T27NEF ,EXPREC 


sGET XSTO STATUS WORD 

sSET UP EXPECTED 

;SET THE NEF BIT 

sARE THEY EQUAL 

3BR, IF EQUAL (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 


sNEF SHOULD BE SET 
TRAP CSERHRD 
WORG 306 


Ie 
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GElKG 3! UBT TE bat Re YRS 3 CRO M1200 20 84 08:15 GE 114-3 SEQ 228 
051452 060221 -WORD T27NEF 
051454 016360 -WORD EXPREC 

9179 051456 1708: 
9180 051456 ENOSUB 
051456 L10067: 
051456 104403 TRAP CsESUB 
9181 051460 023727 002170 000031 CMP FATFLG, 25. sIS ERROR COUNT AT 25 
9182 051466 002402 BLT 9993 38R, IF LESS THAN 25 
9183 051470 004737 020170 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 
9184 051474 999$: | 


Je 
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SEQ 229 
TEST 3: WRITE DATA RETRY 


9186 3¢ 
9187 ; 
Mops ;sTEST 3, SUBTEST 2 
é 
9190 ;VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
9191 ;THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
9192 ;TAPE CBUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
9193 ; TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS 
9194 ;ERROR BIT SET. 
9195 ; 
9196 ; 
9197 ; 
9198 g° 
9199 051474 BGNSUB8S 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
051474 T3.2: 
051474 104402 TRAP CsBSUB 
9200 051476 004737 060654 JSR PC, T27REST ;SET COMMAND PACKET 
9201 051502 004737 060746 JSR PC, T27RT2 ;SET UP OTHER COMMAND PACKET 
aot 051506 004737 061010 JSR PC,T27RT3 ;SET UP OTHER COMMAND PACKET 
9204 Treen en: senna teow meee ae mmem nn 
9205 
Me S ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
‘ 
9208 s FSSHAAAHSASASSEASASSEEEASASASALESASEAAAAEASEEAEEAAEESEREDEALELEAEAELSE 
9209 
9210 051512 004737 016660 JSR PC ,SOF INIT 3:00 INITIALIZE .* CONTROLLER 
9211 051516 103407 BCS 20$ ;6R IF INIT WAS OK 
9212 051520 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
9216 051524 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
9217 051526 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
051526 104455 TRAP CsERDF 
051530 000463 . WORD 307 
051532 003550 . WORD SFIERR 
051534 011676 . WORD SF IMSG 
9218 051536 20%: 
a 051536 012704 055520 MOV @T27PACKET,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
aonb §9442046466646666666664664660646640464666466606466646664046660066660606040046400064040446 
: 
any ;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
& 
eed j POSSESS EESEEEEEREEEASEEEEESESADEEEDEOAEEEEEDOEEDEDEEOEEOEEEEEEEDEE 
9227 051542 004737 010342 JSR PC ,.WRTICHR ; ISSUE WRITE CHARACTERISTICS 
9228 051546 103407 BcS 25% ;8R, IF COMMAND ISSUED OK 
9229 051550 004737 020116 JSR PC .FATCHK ;INC ANDO CHECK FOR MORE THAN 25 ERRORS 
9233 051554 010001 MOV RO,R1 :;SAVE CONTENTS OF TS 
9234 051556 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
051556 104456 TRAP CSERHRD 
051560 000464 . WORD 308 
051562 004754 . WORD WRTMSG 
051564 011676 . WORD SF IMSG 
9235 051566 25%: CKLOOP ;LOOP IF SELECTED 
eons 051566 104406 TRAP CSsCLP1 
9237 59 O6O464646646646664646666466666666614 664464646466466046606060646468606000060000088 


en 


9238 
9239 
9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9251 


TK-25 FRT END 
3: WRITE DATA 


051570 
051574 


051576 


051676 


051702 
051702 
051704 
051706 
051710 
051712 
051712 


051714 
051720 
051722 
051726 


F 
RE 


057055 
011710 


104406 > 


012703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 


005011 
011710 


104406 


004737 
103411 
016501 
010004 


UNC 3 
TRY 


010444 


000000 
020116 


000400 
0C3072 


020116 


010444 


Ke 
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055652 


055650 


SEQ 250 


: 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


5 
FS SSAARAAAAHEAAASKASAAAALABABALSESAAASEADASEAASESASEALESESASEEEEEEEEEEESESE 


26%: 


PC ,REWIND 
26% 


RO,R4 

TSSRCRS),R1 

PC ,FATCHK 

ERRNO, T27RWN,PKTSSR 


@256.,R5 
FREE, T27WB 


sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;SET UP REWIND PACKET ADDRESS 

sGET TSSR CONTENTS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 309 
-WORD T27RWN 
-WORD PKTSSR 
;LOOP IF SELECTED 
CsCLP1 


TRAP 
sSTARTING RECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 


| PARAASEEEEAEEARERESEAEREEEEEEADEEEEOAEEEEEEEEEREREDEAEDEREDEEEEEEEE 
: 
sWRITE DATA,CvC=1,ACK COMMAND 
a 


PRESSE EKAEEERREAREAHESERGABRKRABHaAHTARKRHASHAAKERAAKREARARAARHEROARAEHRSEHEMAE KAA EH 


283: 


#140005, T27PK3 
@T27PK3S,R4 


C,WAITF 
TSSRCRS),R1 
@SSR ,R2 
R1,Re2 


28s 
PC ,FATCHK 


ERRSOFT ERRNO,WRTERR,PKTSSR 


CKLOOP 


sWRITE DATA,CVC=1,ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

;sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 


;BR, IF OK 
3; INC CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE THE 
;WRITE COMMAND IS NOT BEING CHECKED 
;HERE. IT WAS CHECKED IN LEAH2 
;TSSR INCORRECT AFTER a ae 


CSERSOFT 
-WORDB 310 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPl 


SPHERE A AAERAHEHERAEHEAEHRHARAHAASHEHAAEHHAEAHSEHHSHEHKHHRHEHHHSESAHKEH HEH HEADED 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


é 
GE RHEEHKHEEEE EEK HESHARAHEHRAREHAKRERHHAABIHSEHRHESEHEAHAHHSEREHRERAHEH DRED ALSD 


PC ,REWIND 
30$ 


0 
TSSRCRS),R1 
RO,R4 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 

;GET TSSR CONTENTS 

;SET UP REWIND PACKET ADDRESS 


Le 
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9291 051730 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9295 051734 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 

051734 104456 TRAP CSERHRD 
051736 000467 .WORD 311 
051740 057055 .WORD T27RWN 
051742 011710 .WORD PKTSSR 
9296 051744 30$: CKLOOP ;LOOP IF SELECTED 
aah 051744 104406 TRAP CSCLP1 
9298 BRERA HEAAEHAAAREAHESHEARE REEDED HERES REHEALEERERHEEAREEAHR HE RAH RAHA 
9299 3 
or ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
2 
9302 f SHSASARAAARAAASELASEAEESEEASASESESEAAESAASEAEEEEEALEEHEEEEDEEEEEEESE 
9303 
9304 051746 013701 055546 MOV T27BFR+6,R1 sPICK UP xSTO 
9305 051752 010102 MOV R1,R2 ;SET UP EXPECTED 
9306 051754 052702 000002 BIS @BIT1,Re ;SET BOT BIT IN EXPECTED 
9307 051760 020102 CMP R1,R2 ;DOES EXP = REC'D 
9308 051762 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
9309 051764 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9313 051770 ERRHRD ERRNO, T27B0T,EXPREC ‘TAPE NOT AT BOT AFTER REWIND 
051770 104456 TRAP CSERHRD 
051772 000470 .WORD 312 
051774 056551 .WORD T27B0T 
051776 016360 .WORD EXPREC 
9314 052000 40$: CKLOOP ;LOOP IF SELECTED 
ar 052000 104406 TRAP CSCLP1 
aatt fs SSHAAKSSSAASESLAASASESSEAAAAESSSASABRASESEHESESESEEASEADADAEEEESEEEEEAS 
a 
9318 sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
oth srt 15 SETS DIRECTION - O=FORWARD 1 =REVERSE 
Mert 5 0000000000000000000000000000000060000000000000000000000000000000N8 
9323 052002 012703 000001 MOV @1,R3 s;PARAMETER SPACE FORWARD 1 RECORD 
9324 052006 004737 010144 JSR PC, SPACE ;CALL SPACE RECORDS ROUTINE 
9325 052012 103413 eBcs 50$ ;8R, IF NO ERRORS 
9326 052014 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
9327 052020 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
9328 052024 010004 MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 
9329 052026 004737 020116 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
9333 052032 ERRHRD ERRNO, T27SCF,PKTSSR SPACE RECORDS COMMAND FAILED 
052032 104456 TRAP CSERHRD 
052034 000471 .WORD 313 
052036 060317 .WORD T27SCF 
052040 011710 .WORD PKTSSR 
9334 052042 50s: CKLOOP s;LOOP IF SELECTED 
052042 104406 TRAP CSCLP1 


Me 
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Teens URE TE Data DREYRY °° 


9336 eer TTT irri tt Titi itttiitititirititt i iiitiitiiitititititititiititttt ty 
9337 ; 
9338 ; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
aa ;BIT 15 SETS DIRECTION - O*FORWARD 1*REVERSE 
‘ 
9341 PARA EHE HAREM ERAHREAAE HAAS HEAREEAAEHRAREREAALAHERAEAAEH AHA KER HEH ERS EH 
9342 
9343 052044 012703 100001 MOV #100001 ,R3 ;PARAMETER SPACE REVERSE 1 RECORD 
9344 052050 004737 010144 JSR PC, SPACE ;CALL SPACE RECORDS ROUTINE 
9345 052054 103415 BCS 60% ;6R, IF NO ERROR 
9346 052056 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
9347 052062 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
9348 052066 010004 MOV RO,R4 ;SET UP REWIND PACKET ADOR 
9349 052070 004737 020116 JSR PC ,FATCHK 3; INC AND CHECK FOR MORE THAN 25 ERRORS 
9353 052074 ERRHRD ERRNO, T27SCF ,PKTSSR ‘ SPACE RECORDS COMMAND FAILED 
052074 104456 TRAP CSERHRD 
052076 000472 . WORD 4 
052100 060317 .WORD T27SCF 
052102 011710 . WORD PKTSSR 
9354 052104 60$: CKLOOP ;LOOP IF SELECTED 
052104 104406 TRAP CSCLP1 
9355 052106 013737 003072 055652 MOV FREE, T27RB s;ADDRESS OF BUFFER 


Ne 
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TEST 3: WRITE DATA RETRY 

9357 i AEAARAARAAAEAAASEEAEAEASARERERAEERERERERERAAEAERERAEEAAAEARAREEREESD 

9358 ; 

onan ;sWRITE DATA RETRY,ACK,CVC=1 COMMAND 

; 

9361 { AAARAAARARAEAAARSAAAAESERARAAAAEARESAAEERAAAAAEARAAERERERERALARALELS 

9362 

9363 052114 012737 141005 055650 MOV #141005, T27PK3 sWRITE DATA RETRY,ACK,CVC=1 COMMAND 

9364 052122 012737 000400 055656 MOV $256. ,T27SZ ;SET UP THE SIZE OF RECORD 

9365 052130 012704 055650 MOV @T27PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

9366 052134 010465 177776 MOV R4, TSOBCRS) ; ISSUE COMMAND 

9367 052140 004737 017134 JSR PC ,WALTF sWAIT FOR SSR TO SET 

9368 052144 016501 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

9369 052150 012702 100204 MOV #SSR!SC!BIT2,R2 ;SET UP EXPECTED TAPE STATUS ALERT 

9370 052154 020102 CMP 1, ;ARE THEY EQUAL 

9371 052156 001406 BEQ 180$ ;BR, IF OK 

9372 052160 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

9376 052164 ERRHRD ERRNO, T27TSA,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
052164 104456 TRAP CSERHRD 
052166 000473 . WORD 315 
052170 060374 . WORD T27TSA 
052172 011710 . WORD PKTSSR 

9377 052174 180$: CKLOOP ;LOOP IF SELECTED 
052174 104406 TRAP CSCLP1 

9378 052176 013701 055554 MOV T27BFR+14,R1 ;GET XST3 STATUS WORD 

9379 052202 010102 MOV R1,R2 ;SET UP EXPECTED 

9380 052204 052702 000001 BIS #BITO,R2 ;SET THE RIB BIT 

9381 052210 020102 CMP R1,R2 ;ARE THEY EQUAL 

9382 052212 001406 BEQ 190$ ;8R, IF EQUAL (GOOD) 

9383 052214 004737 020116 JSR PC ,.FATCHK » INC AND CHECK FOR MORE THAN 25 ERRORS 

9387 052220 ERRHRD ERRNO, T27NEF ,EXPREC ;NEF SHOULD BE SET 
052220 104456 TRAP CSERHRD 
OS2222 000474 . WORD 316 
052224 060221 . WORD T27NEF 
052226 016360 . WORD EXPREC 

9388 052230 190$: 

9389 052230 ENDSUB8 ;>>>>>%>>>>>>> END SUBTEST >»>>>>>>>>>>> 
052230 L10070: 
052230 104403 TRAP CsESUB 

9390 052232 023727 002170 000031 CMP FATFLG, #25. ;IS ERROR COUNT AT 25 

9391 052240 002402 BLT 999$ ;BR, IF LESS THAN 25 

9392 052242 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

9393 052246 999%: 


* $b TK-25 FRT END FUNC @3 


3: WRITE DATA RETRY 


104402 
004737 
004737 
004737 


004737 
103407 
004737 
010001 
104455 
000475 


003550 
011676 


012704 


011676 
104406 


060654 
060746 
061010 


016660 
020116 


055520 


010342 
020116 


BS 


MACRO M1200 20-APR-84 08:13 PAGE 116 SEQ 234 


see 
» 
_— 3, SUBTEST 3 


iVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SwB-0 
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
s( THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
sBYTE COUNTS AND DATA PATTERNS ARE USED. 

5 


BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
73.3: 
TRAP Cs6Su8 
JSR PC, T27REST T COMMAND PACKE 
JSR PC, T27RT2 ET UP OTHER COPPIAND PACKET 
JSR PC,T27RTS sSET UP OTHER COMMAND PACKET 


8 9OO08608 06 66066666606066 0606606666666 6606660606666060660606066066066666660666 


i 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
8 9 OO86 84606686806 0666606806066066666066666066660666666660606666060606660006666606686 


JSR PC ,SOF INIT s00 INITIALIZE ON CONTROLLER 

BCS 20% s;6R IF INIT WAS OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 i CONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP C SEROF 
-WORDB 317 
.WORD SFIERR 

_ -WORD  SFIMSG 
MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


89060666 60668066606668606066666066666066606666666606668666060666060666060666666 


i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


zy 
8 OO O8 666686 64666666068686666064606066666066606666686066666066066666066666666606 


JSR PC ,.WRICHR s ISSUE WRITE CHARACTERISTICS 

BCS 23% sBR, IF COMMAND ISSUED OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRO 
.WORD 318 
-WORD WRITMSG 
WORD SFIMSG 

23%: CKLOOP sLOOP IF SELECTED 

TRAP CscLPi 


§ SOS OOO06 0680844 F66S464666666664660666606666606466686666006606860066086 
5 


“. 


ZTKGA TK FRT MACRO M1200 20-APR-84 O 3 P - 
FB h 3. aire DATA pwnd os 8:1 AGE 118-1 SEQ 235 
sean s; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
GLAD I FSSHSHSHSHASHASAHSEHHHEHASAHEHEHOESAEESESESEEASESASEEESEEEEEEAEEOEROEREOEOEREAS 
9450 
9451 052342 004737 010444 JSR PC ,REWINO s;CALL TAPE REWIND COMMAND 
9452 052346 103407 BcS 30% s;6R, IF NO PROBLEM 
9453 052350 010004 MOV RO, op :SET UP REWIND PACKET ADDRESS 
9454 052352 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9458 052356 ERRHRD ERRNO, T27RWN,PKTSSR SREWIND NOT ACCEPTED 
052356 104456 TRAP CsERHMRD 
052360 000477 . WORD 319 
052362 057055 . WORD T27RWN 
052364 011710 . WORD PKTSSR 
9459 052366 308: CKLOOP sLOOP IF SELECTED 
— 052366 104406 TRAP CSCLP1 
9461 8 9S 0006068606466 66606666066666066666666600606666666464666666666666606466666 
9462 ; 
me sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
: 
9465 S SSSOASASHEEHEOHOHSOSSESSASHSESOHEHASEEEASHEASEOESEEEEEEOEHEEEEKOHEEEEEE 
9466 
9467 052370 013701 055546 MOV T27BFR+6,R1 sPICK UP xSTO 
9468 052374 010102 MOV R1,R2 sSET UP EXPECTED 
9469 052376 052702 000002 BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
9470 052402 020102 CMP R1,R2 s00ES * REC'D 
9471 052404 001406 BEQ 403 3;8R, IF EQUAL (OK) 
9472 052406 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9476 052412 ERRHRD ERRNO, T27B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
052412 104456 TRAP CSERHMRD 
052414 000500 . WORD 320 
052416 056551 : . WORD T27B0T 
052420 016360 . WORD EXPREC 
9477 052422 403%: CKLOOP sLOOP IF SELECTED 
052422 104406 TRAP CSCLP1 
9478 052424 012703 000024 MOV #20. ,R5 sSTARTING RECORD SIZE 
oda 052430 013737 003072 055652 MOV FREE, T27WB sSTARTING WRITE BUFFER ADDRESS 
a 8 9O866666686666066066860660660606660666606066666666660666066060660606006606060066666 
$ 
Seas sWRITE DATA,CVC*1,ACK COMMAND 
3 
Road 8 22066666 06666664666666666666066666666666666666666646666666066660660606606006 
9487 052436 012737 140005 055650 65%: MOV #140005 ,, T27PK3 sWRITE DATA,CVC*1,ACK COMMAND 
9488 052444 012704 055650 MOV @T27PK3,R4 3;SET UP R4 WITH PACKET ADDRESS 
9489 052450 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
9490 052452 004737 020410 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
9491 052456 010337 055656 MOV R3,7T27SZ sSET UP RECORD SIZE IN PACKET 
9492 052462 010465 177776 MOV R4, TSOBCRS) sISSUE COMMAND 
9493 052466 004737 017134 JSR PC ,WAITF sWAIT FOR SSR TO SET 
9494 052472 016501 000000 MOV TSSRCRS),R1I 3GET TSSR CONTENTS 
9495 052476 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED 
9496 052502 020102 CMP R1,R2 ;ARE THEY EQUAL 
9497 052504 001406 BEQ 80% ;6R, IF OK 
9498 052506 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


9502 sSOFT ERROR GENERATED BECAUSE THE 


9505 
9504 
9505 


005011 
011710 


104406 


012737 


FESHOA STK RP ERD AFHORE WRG °5 


141005 055650 
177776 


017134 
000000 
000200 


020116 


000050 


010444 


020116 


DS 


MACRO M1200 20-APR-84 08:13 PAGE 118-2 SEQ 256 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 
ERRSOFT ERRNO, WRTERR,PKTSSR iTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 321 
-WORD WRTERR 
.WORD PKTSSR 
808; CKLOOP sLOOP IF SELECTED 

TRAP CsCLP1 


BS SSSSASASHHESASHEHAEEHEEASEAEAECEKESCEEADEHEAEHREESAAEEEEEEEEESS. ‘44646 


$ 
sWRITE DATA RETRY,CVC*1,ACK COMMAND 


4 
§ SOSOESASSHOEASESEEESSESOAEASESEAESEEEAEEEEEEOEEHEREEOEEEEHEEEEEDEDRES 


MOV #141005, T27PKS sWRITE DATA RETRY,CvC*1,ACK COMMAND 
MOV R4, TSOBCRS) sISS OMMANOD 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 90% ;BR, IF OK 
JSR PC .FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27WRF ,PKTSSR STSSR INCORRECT AFTER oi * geen he 
% 
.WORD 322 
-WORD T27WRF 
WORD PKTSSR 
90%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPi 
TST CR3)-° sBUMP RECORD SIZE COUNTER 
CMP R3,040. sAT 40 SIZE YET 
BNE 65% ;BR, IF MORE RECORDS TO WRITE 
PUTT rrrrrriririviriirirririiirriiiiriiriiririrririiritiyTyT. 
a 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
5 
§ POORER EEOEEEEEOEOEEEOOOOOOOOOOOO00600600000600600060000000000000006 
JSR PC ,REWINOD sCALL TAPE REWIND cuentas 
BCS 230% ;6R, IF NO PROBLEM 
MOV RO,R1 :SAVE TSSR 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27RWN,EXPREC sREWIND NOT ACCEPTED 
TRAP CSERHRO 
-WORD 3235 
-WORD T27RWN 
-WORD EXPREC 
230%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPl 


8 OOOO O6 86066 66666806604666666606660606060664 6062666606660 06660606066600660060006 


‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
5 


co TK-25 FRT END FUNC @3 


TEST 3: WRITE DATA RETRY 


9601 


053020 


013701 


104406 
012703 
013737 


012737 


055546 
000002 


020116 


000024 
003072 


003072 
000024 


020116 


e- 


MACRO M1200 20-APR-84 08:13 PAGE 118-3 


055652 


055650 


E POOSESEASAHEAEAEASESEESADARASESEEEEEEEEESAREEEEASEEEEEEEAEDREREREESE 


2408: 


T27BFR+6,R1 
R1 


PC ,.FATCHK 
ERRNO, T27B0T ,EXPREC 


620. ,R3 
FREE, T27RB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


§ SSASSHOSESOSASEESSEEASEEEEASEOASEEEREEERESEAREHEEEEEEEEEROERERELDESE 


i 
sREAD DATA,ACK COMMAND 


é 
8 9SO88608066046686060606066066006466 600066 66660606006 4660000 66000600004008 


2658: 


2808: 


285%: 


2908; 


MOV 


CKLOOP 


#100001, T27PK3 


ERAND. CHK 


ATCHIKK 
ERRNO. T27D0TA,EXPREC 


SEQ 237 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
| TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 324 
. WORD T27B80T 
-WORD EXPREC 
sLOOP IF SELECTED 
TR CSCLP1 
sSTARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 
sREAD DATA,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;6R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER —— — 
CSERHRD 
TWORD 325 
. WORD ROERR 
. WORD PKTSSR 
sLOOP IF SELECTED 
RAP CSCLP1 
sGET BUFFER ADDRESS 
;GET RECORD SIZE 
sPOINT BACK TO 1ST RECORD 
sPOINT TO 1ST LOC IN BUFFER 
sDATA WRITTEN = READ 
;8R, IF DATA OK (GOOD) 
sPICK UP BAD DATA 
sSET UP EXPECTED 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sDATA IN BUFFER NOT CORRECT 
TRAP CSERHRD 
. WORD 326 
. WORD T270TA 
. WORD EXPREC 
:LOOP IF SELECTED 
TRAP CsCLP1 


FS 


{GA TK - FR ‘a @ MA M - APR - : - 
bZrK MK Aire BaF NORE WNC 3 CRO M1200 20-APR-84 08:13 PAGE 118-4 SEQ 238 
9602 053022 005724 TST (R4)> ;BUMP TO NEXT ADDRESS 
9603 053024 160204 SUB R2,R4 sBACK TO RECORD SIZE 
9604 053026 020403 CMP R4,R3 sAT ENO OF RECORD YET 
9605 053030 001360 BNE 285% ;8R, IF MORE DATA TO CHECK 
9606 053032 005723 TST CR3)- BUMP RECORD SIZE 
9607 053034 020327 000050 CMP R3,040. sD0NE YET 
9608 053040 001317 BNE 265% 38R, IF NOT DONE YET (MORE READS) 
9609 053042 3008: CKLOOP ;LOOP IF SELECTED 
053042 104406 TRAP CSCLPl 
9610 053044 3308: 
9611 053044 ENDSUB8 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
053044 L10071: 
053044 104403 TRAP CsESUB 
9612 053046 023727 002170 000031 CMP FATFLG, 025. 3IS ERROR COUNT AT 25 
9613 053054 002402 BLT 9998 ;BR, IF LESS THAN 25 
9614 053056 004737 020170 JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


9615 053062 999%; 


G35 


TKGA_ TK - FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 119 
+e cy 3: ware DATA RETRY ' — a 
9617 3¢ 
9618 : 
apts ;TEST 3, SUBTEST 4 
: 
9621 ;VERIFIES THAT A WRITE DATA RETRY COMMAND WITH Swe-l1 
9622 ; TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
9623 ;( THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
9624 ;BYTE COUNTS AND DATA PATTERNS ARE USED. 
9625 : 
9626 : 
9627 3 
9628 3° 
9629 053062 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
053062 73.4: 
053062 104402 TRAP CsBSUB 
9630 053064 004737 060654 JSR PC, T27REST 3SET COMMAND PACKET 
9631 053070 004737 060746 JSR PC,T27RT2 ;SET UP OTHER COMMAND PACKET 
9632 053074 004737 061010 JSR PC, T27RTS ;SET UP OTHER COMMAND PACKET 
ers 053100 012737 176750 055702 MOV #65000. , T27DLY ;SET UP DELAY COUNTER 
9635 2 SSSSSSHKASSAAOASASASASSASESHSESAASEAAAAASAKREEAREEELEREEREEEEEEEEDEESE 
96 ; 
og ds s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 
et § FSSAASSHASASASESSSASSASSAASEEESSASCAESESESEASEASAKLEASEESEEASASEEEOAEAELE 
¢] 
9641 053106 004737 016660 108: JSR PC ,SOF INIT :00 INITIALIZE ON CONTROLLER 
9642 053112 103426 BCS 20% ;B8R IF INIT WAS OK 
9643 053114 DELAY 250 ;DELAY ABOUT .25 SEC 
053114 012727 000250 MOV 250 .,.(PC)>+ 
053120 000000 . WORD 0 
053122 013727 002116 MOV LSOLY,CPC)->+ 
053126 . WORD 0 
053130 7 177772 DEC -6(PC) 
053134 001375 BNE .-4 
053136 005367 177756 DEC -22(0PC) 
053142 001367 BNE .-20 
9644 053144 005337 055702 DEC T270LY ;BUMP COUNTER 
9645 053150 001356 BNE 10$ ;B8R, IF COUNTER NOT DONE 
053152 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9650 053156 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
9651 053160 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
053160 104455 TRAP CSERDF 
053162 000507 . WORD 327 
053164 003550 . WORD SFIERR 
053166 011676 . WORD SF IMSG 
9652 053170 20%: 
pons 053170 012704 055520 MOV @T27PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 
ae § 4202666666 6646464646466666666064664646466464664646464666464646064646464644664646460060646460006 
; 
bey a sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: 
9659 8 9OOO06660446666666666646464646646666464646646660664646406646404664646646464400466040086 
9661 053174 004737 010342 JSR PC ,WRTICHR ; ISSUE WRITE CHARACTERISTICS 
9662 053200 103407 Bcs 23% ;8R, IF COMMAND ISSUED OK 


HS 


MACRO M1200 20-APR-84 08:13 PAGE 119-1 SEQ 240 


TES CRT TE DATRO REYNE °S 


9663 053202 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9667 053206 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9668 053210 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
053210 104456 TRAP CSERHRD 
053212 000510 . WORD 328 
053214 004754 . WORD WRTMSG 
053216 011676 . WORD SF IMSG 
9669 053220 23s: CKLOOP ;LOOP IF SELECTED 
esto 053220 104406 TRAP CSCLP1 
9671 J SAAAASHASAEEHASEEEEAEEEEASEEEEEDEEAEASEEEESEEEEEESOAEEEEEEEEEEEEES 
9672 : 
anne ; ISSUE REWIND COMMAND :0 SELECTED TAPE ORIVE 
9675 ae 
9676 
9677 053222 004737 010444 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
9678 053226 10341 BcS 30$ ;8R, IF NO PROBLEM 
9679 053230 016501 000000 MOV TSSRCRS),.R1 sGET TSSR CONTENTS 
9680 053234 Ol MOV RO ,R4 ;GET PACKET ADDRESS 
9681 053236 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9685 053242 ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED 
053242 104456 TRAP CSERHRD 
053244 000511 . WORD 329 
053246 057055 . WORD T27RWN 
053250 011710 . WORD PKTSSR 
9686 053252 308: CKLOOP ;LOOP IF SELECTED 
esa? 053252 104406 TRAP CSCLP1 
one § 92000600400660666460660660006660604606066606646066066060664600660646000640000000646 
; 
roan sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
ete acne tinheanahitiihina denen tdi ntttita nae anenieins nee 
9694 053254 013701 055546 MOV T27BFR+6,R1 sPICK UP xSTO 
9695 053260 010102 MOV R1,R2 ;SET UP EXPECTED 
9696 053262 052702 000002 BIS #BIT1,R2 ISET BOT BIT IN EXPECTED 
9697 053266 020102 CMP ° sD0ES EXP = REC'D 
9698 053270 001406 BEQ 40$ ;B8R, IF EQUAL (OK) 
9699 053272 004737 020116 JSR PC .FATCHK iI AND CHECK FOR MORE THAN 25 ERRORS 
9703 053276 ERRHRD ERRNO, T27B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
053276 104456 TRAP CSERHRD 
053300 000512 . WORD 330 
053302 056551 . WORD T27B80T 
053304 016360 . WORD EXPREC 
9704 053306 40$: CKLOOP ;LOOP IF SELECTED 
053306 104406 TRAP CSCLP1 
9705 053310 012703 000024 MOV 20. ,R3 sSTARTING RECORD SIZE 
ba 053314 013737 003072 055652 MOV FREE, T27WB sSTARTING WRITE BUFFER ADDRESS 
the 9466606664646 66060666666666666666646646606060606060646066464060460000006040400004 
° 
ert sWRITE DATA,CVC=#=1,ACK COMMAND 
9712 OT a Te Tee 


S? 


ITE 


053322 
0533350 


3 
053370 
053372 


053376 


053470 
053474 
053476 


012737 


011710 
104406 


012737 


004737 
103411 
016501 


CZTKGA TK-25 FRT END FUNC @3 
TEST WR DATA RETRY 


140005 055650 65%: 
055650 


020116 


111005 
177776 
017134 
000000 
000200 


020116 


000050 


010444 


MACRO M1200 20-APR-84 08:13 PAGE 119-2 


055650 


Is 


SEQ 241 


MOV #140005, iy sWRITE DATA,CVC#1,ACK C 

MOV @T27PK3,R sSET UP R4 WITH PACKET ADDRESS 
MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
JSR PC, FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T27SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRCRS), R1 sGET TSSR CONTENTS 

MOV @SSR ,Re sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 80$ sBR, IF OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 


sHERE. IT WAS CHECKED IN LEAH2 
ERRSOFT ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 
-WORD 331 
-WORD WRTERR 
WORD PKTSSR 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 


§ 9280260046066046466466464666066 66066666 6460606664606664664646464646464604666406466446666 


* 
sWRITE DATA RETRY,ACK,SWB=1 COMMAND 


. 
8 9988846868406 640406066466 66464644666466466466060466466406666640666064600646406646666 


MOV #111005, T27PK3 sWRITE DATA RETRY,ACK,SWB=1 COMMAND 

MOV R4, TSDBCRS) ; ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRCRS?),R1 ;GET TSSR CONTENTS 

MOV @SSR ,R2 ;SET UP EXPECTED 

CMP R1,Re2 sARE THEY EQUAL 

BEQ 90% ;BR, IF OK 

JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T27WRF ,EXPREC STSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRO 
-WORDB 332 
-WORD T27WRF 
WORD EXPREC 

90%: CKLOOP ;LOOP IF SELECTED 

TRAP CscCLP1 

TST (R3)-> sBUMP RECORD SIZE COUNTER 

CMP R3,040. sAT 40 SIZE YET 

BNE 65% sBR, IF MORE RECORDS TO WRITE 


5 99066 6666660666066666646606606666606660666646664666660660606464006660000068 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


4 
8 9986866666 646606466646606046660664666646666666466464660666466060660640060006 


JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 
BCS 230% ;BR, IF NO PROBLEM 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 


CZ 
TE 


053502 
304 


TKGA_TK-25 FRT 
ST 3: WRITE DA n RETR 


011710 
104406 


013701 


104406 
012703 
013737 


012737 


005104 
011710 


104406 
013702 
010304 


ENC 3 


020116 


055546 
000002 


020116 


000024 
003072 


003072 
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055652 


055650 


2308: 


MOV 
SR 


CKLOOP 


RO,R4 


JS 


J PC ,FATCHK 
ERRHRD ERRNO, T27RWN,PKTSSR 


sGET PACKET ADDRESS 
sINC AND CHECK 
;REWIND NOT ACCEPTED 


;LOOP IF SELECTED 
TRAP 


FH OOKREEAEEREHKEHR AAAS REHREHHEAREHAAAHEAE HARARE AHHEHEAEKRAE HAHAH EAH REHRAREEH EE 


a 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


‘ 
SPAHAEKREARABAHAAREAKHS CHAASHEREEAAEKLEEAAAESHEAAAHHEEARAASHEEAASOEASEKAHHKE 


2408: 


Ri, 

@BIT1,R2 
24 408 | 
PCF 


#20. ,R3 


FREE, T27RB 


T27BFR+6,R1 
Re 


ATCHK 
ERRNO, T27B0T ,EXPREC 


;PICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN _— 


(OK ) 
sINC ANDO CHECK FOR MORE THAN 25 
;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 


sLOOP IF SELECTED 


TRAP 
sSTARTING RECORD SIZE 
;STARTING READ BUFFER ADDRESS 


j PERASASASESASESEREEEEADEEESESEESEEESEEEDEEEEEEEEEEEEEEDEDEDEDOEEES 
; 
sREAD DATA,ACK COMMAND 


3 
FOR HAKHEHEEHAHAMRHHEAHSHEAEAHARAAEHHHMHAARAHAEAEHH HAHAH HEHKAARDAHEAARE ERED 


265%: 


2803: 


#100001, T27PKS 
@T27PK3,R4 


TSSR(RS),R1 


@SSR ,Re2 
R1,R2 


280% 
PC .FATCHK 


ERRNO ,ROERR ,PKTSSR 


FREE ,R2 
R3,R4 


sREAD DATA,ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 


OK 
;INC AND CHECK FOR MORE THAN 25 
;TSSR INCORRECT AFTER — — 


;LOOP IF SELECTED 


;GET BUFFER ADORESS 
sGET RECORD SIZE 


SEQ 242 


FOR MORE THAN 25 ERRORS 


CSERHRD 
333 
T27RWN 
PKTSSR 


CsCLP1 


ERRORS 
CSERHRD 
334 


T27B0T 
EXPREC 


CsCLP1 


ERRORS 


CsCLPl 


Ks 
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FES URE RbaTA’ REYRY es 


9818 053656 162704 000024 SUB 20. ,R4 sPOINT BACK TO 1ST RECORD 
9819 053662 060204 285$: ADD R2,R4 sPOINT TO 1ST LOC IN BUFFER 
9820 053664 000303 SWAB R3 ;SWAP BYTES SWB=1 ETC. 
9821 053666 021405 CMP C(R4),R5 ;DATA WRITTEN = READ 
9822 053670 001410 BEQ 290% ;68R, IF DATA OK (GOOD) 
9823 053672 011401 MOV CR4),R1 sPICK UP BAD DATA 
9824 053674 01030 MOV R3,R ;SET UP EXPECTED 
9825 053676 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
9829 053702 ERRHRD ERRNO, T27D0TA,EXPREC ;DATA IN BUFFER NOT CORRECT 
053702 104456 TRAP CSERHRD 
053704 000 . WORD 336 
053706 060536 . WORD T27DTA 
053710 016360 WORD EXPREC 
9830 053712 2908: CKLOOP ;LO0OP IF SELECTED 
053712 104406 TRAP CSCLP1 
9831 053714 005724 TST CR4)>+ ;BUMP TO NEXT ADDRESS 
9832 053716 160204 SUB R2,R4 ;BACK TO RECORD SIZE 
9833 053720 0003035 SWAB 3 ;PUT R3 BACK INTO SHAPE 
98 053722 020403 CMP R4,R3 ;AT END OF RECORD YET 
9835 053724 001356 BNE 285$ ;B8R, IF MORE DATA TO CHECK 
9836 053726 005723 TST CR3)-+ ; BUMP RECORD SIZE 
9837 053730 020327 000046 CMP R3,038 ;DONE YET 
98 053734 001315 BNE 265% ;8R, IF NOT DONE YET CMORE READS) 
9839 053736 300$: CKLOOP ; LOOP IF SELECTED 
053736 104406 TRAP CSCLP1 
9840 053740 ENDSU8 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
053740 L1007e: 
053740 10440 TRAP CsESUB 
9841 053742 023727 002170 000031 CMP FATFLG,¢25. ;IS ERROR COUNT AT 25 
9842 053750 002402 BLT 999% ;8R, IF LESS THAN 25 
9843 053752 004737 020170 JSR PC ,CKOROP ;TRY TO OROP THE UNIT 
9844 053756 999$: 


1€ 


TKGA_ TK- 
ST 83: 


054016 
054022 
054024 
054024 
054030 


5_FRT 
ITE DATA RE RETR 


012737 


004737 
103426 


012727 
000000 


002172 
055676 
055700 
060654 
060746 
061010 
176750 


016660 


000250 
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055702 


=. 


‘ 
;TEST 3, SUBTEST 5 


: 

;VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
;PERFORMING THE “ERASE” PART OF THE OPERATION BY 
sPERFORMING THE FOLLOWING SERIES OF STEPS. 


: 
si. 


mM 


Ww 


b 


ui 


THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 


A PROGRAM TIMING VALUE IS av wr BY REWINOING 
THE TAPE ANO THEN CONUTING THE NUMBER OF CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
— OF RECORDS WRITTEN IN PREVIOUS 


THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 
RECORDS SEPARATED BY A LONG INTERRECORD GAP. 


THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 


THE TWO LOOP COUNTS ARE COMPARED, ye ey TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.5: 
TRAP CsBSU8 
CLR INTRECV ; INTERRUPT INDICATOR 
CLR T27CNT ; TIMER FOR WRITE DATA SPACING 
CLR T27CNU ; TIMER FOR WRITE DATA RETRY SPACING 
JSR PC, T27REST 3;SET COMMAND PACKET 
JSR PC, T27RT2] ISET UP OTHER COMMAND PACKET 
JSR PC, T27RTS ;SET UP OTHER COMMAND PACKET 
MOV 065000. »T270L.Y ;SET UP DELAY COUNTER 


FRSESAAHHERRERAHEAHEHAREREEHEREASHEHEHAEHEEARHEHRAREHESRHAHHRHAKAEHD EDK H EDA GHEE 


j 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
FERRER HEEEEEEREHHREDHEHEAEEARERERE HEARSE SHHOHKRERHRSOARH EKER AHMAR EHR HH HERES 


10$: 


JSR PC ,SOF INIT :00 INITIALIZE ON CONTROLLER 
BCS 20% ;BR IF INIT WAS OK 
DELAY 250 ;DELAY ABOUT .25 SEC 


MOV 


#250,CPC)>+ 
-WORD O 


SEQ 244 


CZTKGA TK-25 FRT END FUNC @5 
TEST 3: WRITE DATA RETRY 


9944 
9945 


013727 
000000 


011676 


012704 


011676 
104406 


004737 
103411 
016501 
010004 
004737 


104456 
000525 
057055 
011710 


104406 


002116 
177772 
177756 
055702 
020116 


055520 


010342 
020116 


MS 
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20$: 


MOV 


T270LY 


10% 

PC ,FATCHK 

RO,R1 
ERRNO, SF IERR, SF IMSG 


OT27PACKET ,R4 


;BUMP COUNTER 
;B8R, IF COUNTER NOT DONE 
sINC AND CHECK FOR MORE THAN 25 
sCONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 


(AREER EEAEEREAAERHAEAAEAHEHHEAEHRE KECK A RHE HRAKCAHHAREHEKRERKEEK EERE HAR ER ® 


‘ 
;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
SPARE EAR EHKEEEEEEERAHERARAHRAREEBARARHREHRHEAEEREHREE HARARE EEA AKER RE 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 23% ;BR, IF COMMAND ISSUED OK 
JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG,SFIMSG ;sWRITE CHARACTERISTISC — 
. WORD 
. WORD 
| . WORD 
23%: CKLOOP ;LOOP IF SELECTED 
TRAP 
[PRES AEEEEEEEEDEOOE6EOE0660660466066860066066066060640006060600000088 
‘ 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
| ORdaSoseeeasasesessasessrsecesseossesaseorsoesesacecnesesacoccece 
JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
BCS 3 ;BR, IF NO PROGLEM 
MOV TSSRCRS),R1 :GET TSSR CONTENTS 
MOV ~ yr ;GET PACKET ADDRESS 
JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND NOT ACCEPTED —— 
. WORD 
. WORD 
. WORD 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP 


5 9 442444644466646664644646646466466661 666646460644644648464664666606464640066460464646044 


SEQ 245 


_enernene 


“6CPC) 

~22(PC) 

.-20 

ERRORS 

CSEROF 
7 


33 
SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


ERRORS 


CsCLP1 


CsCLPi 


j 


ZTKGA_TK-25 _ FRT 


EST 53: 


WRITE DA A RETR 


054320 


013701 


013737 


012737 


004737 


055546 
000002 


020116 


000144 
003072 


010444 
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055652 


055650 
055656 


NS 


SEQ 246 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
§ FHRREAERARABASESAAASAAAEAEREEAAAAABEAAEAAESEAEEESAREARABEREREREREES 


40$: 


bt Apts 
R1,R2 


epiTi. Re 
R1,R2 

40$ 

PC, 


#100. RS 
FREE, T27WB 


1 


FATCHK 
ERRNO, T27B0T ,EXPREC 


;PICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
| TAPE NOT AT BOT AFTER REWIND 


TRAP CSERHRD 
-WORD 340 
-WORD T27B0T 
-WORD EXPREC 


;LOOP IF SELECTED 
CSCLP1 


TRAP 
sNUMBER OF RECORDS TO BE WRITTEN 
sSTARTING WRITE BUFFER ADDRESS 


§ FESSAAASASASASESASSESESLSAALALEABALASEASASEAESASESALEAASEALEEEEEEEEEDSE 


. 
sWRITE DATA,ACK,CVC=1 COMMAND 


i 
§ FSESSSASSAASASSSESEEEASEEESRESESEEASDESEAEAESEEEEEEOEEEAEEAEEEDEDEAEEEESE 


65$: 


70$: 


ERRSOF T 


CKLOOP 


DEC 
BNE 


#140005, T27PK3 
R4 


@T27PKS, 


TSSRCRS),R 


R1,R2 
70$ 
PC ,.FATCHK 


ERRNO ,WRTERR,PKTSSR 


RS 
65% 


1 


sWRITE DATA,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 


OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR GENERATED BECAUSE T 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 
;TSSR INCORRECT AFTER wg + ® DATA 


CSERSOF T 
TORO 341 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


sDEC RECORD COUNTER 
3;BR, IF MORE RECORDS TO WRITE 


§ 996026666 6804646466666464646666464646604666464044646464664646666646464 660446064066 


; 
sISSVE REWIND COMMAND TO SELECTED TAPE DRIVE 


5 
§ 9 4444464646464644644464046646446646064646446464646466664646464464646644646464664664606460666 


JSR 


PC ,REWIND 


sCALL TAPE REWIND COP ND 


CZTKGA TK-25 FRT END FUNC @3 
TEST 3: WRITE DATA RETRY 


000526 
057055 
011710 
104406 


0135701 


104406 
012704 
012737 


012757 


000000 
013727 
000000 


012702 


000000 
020116 


055650 
000010 


140010 
177776 
0556 76 
000001 
002116 
177772 


177756 


000000 
000200 


000000 
000200 


B4 
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055652 


055650 


1308; 


CKLOOP 


1308 
ioeoene 
RO,R 


PC FAT CHK 
ERRNO, T27RWN,PKTSSR 


sBR, IF NO PROBLEM 
1GET TSSR th it 
sGET PACKET ADORE 


sINC ANO CHECK 
| REWIND NOT ACCEPTED 
TRAP 
. WORD 
sLOOP IF SELECTED 
TRAP 


8 9O6O660 6608608666606 06666806606066606666666066606660666066606660666606068668 


j 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


1408: 


MOV 
MOV 
BIS 
CMP 
BEQ 


JSR 
ERRHRD 


CKLOOP 


MOV 
MOV 


T27BFR+6,R1 
R1,R2 
eerti, Re 
Ri,R 


rye B 
PC .FATCHK 
ERRNO, T27B0T ,EXPREC 


@T27PK3,R4 
#10, T27RB 


sPICK UP xSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
REC'D 


sLOOP IF SELECTED 


sSET UP PACKET ADORESS 
sSET UP RECORDS TO SPACE OVER 


8 9208060066666 0866606068 86660666666666686666666866666866606660666600666866 


é 
sACK ,.CvC*1,SPACE FORWARD COM: AND 


8 
8 S806 6686666666066 666666686066666660660660606866666066066606066666660666666 


sACK,.CVC*1,SPACE FORWARD COMMAND 


1508; 
1528; 


MOV 
MOV 
INC 
DELAY 


#140010, T27PKS 
R4, TSOBCRS) 
T27CNT 

1 


TSSRCRS),R1 
tt Hike 


1528 
TSSRC(RS),R1 
@SSR ,R2 


+I1SSUe COMMAND 
;B8UMP TIMER 
sDELAY ABOUT 100US 


3GET TSSR 

sCHECK FOR TSSR’'S SSR SET 
sKEEP COUNTING UNTIL SET 
3;GET STATUS FROM TSSR 
:SET UP EXPECTED 


SEQ 247 


Ss 
FOR MORE THAN 25 ERRORS 


CSERMRD 
340 
T27RWN 
PKTSSR 


CsCLPi 


25 ERRORS 


CSERHRD 
343 
T27B60T 
EXPREC 


CScLPi 


@1,(€PC)- 
—oss 


“23°6C) 
20 


7 Say TK-25 FRT END FUNC 03 


TEST 3: WRITE DATA RETRY 


060317 
011710 


104406 


057055 
011710 


104406 


013701 
010102 


012703 
013737 


020116 


010444 
017252 


020116 


000144 
003072 055652 


1608; 


CKLOOP 


R2,R1 
1608 


PC .FATCHK 
ERRNO, '27SCF ,PKTSSR 


C4 
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sWAS EVERYTHING OK 
s6R, IF ALL IS WELL 


SEQ 248 


NC ANO CHECK FOR MORE THAN 25 ERRORS 


iI 
i SPACE FORWARD DION’ T WORK OUT 


TRAP 


sLOOP IF SELECTED 


B SOSSHASSESESEEEEESEEEEEESOHEAEEEEEOEEEOOEEES £16666066666066066660066680866 


4 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
8 92880686 6068606600666600666006600866066660066006660066060660606066660046066684 


1708: 


CKLOOP 


PC ,REWIND 
PC, aha 


ye 


Ri 
PC FATCHK 
ERRNO, T27RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
s6R, IF NO PROBLEM 


5 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 : 
§ 9286866066886 68606660606060666060666666066666666660606666566606606666666 


1758: 


1778: 


CMP 
BEQ 
JSR 
ERRHRD 


CKLOOP 


MOV 
MOV 


T27BFR6,R1 

R1,R2 

#6IT1,R2 
Re 


We 
PCF 


#100. ,R3 
FREE, T27WB8 


ATCHK 
ERRNO, T27B0T ,EXPREC 


CSERHRD 
4 


34 
T27SCF 
PKTSSR 


CSCLP1 


sSAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
y REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 345 
-WORD T27RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP xSTO 
3SET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;8R, IF EQUAL ¢ 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
: TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 346 
. WORD T2780T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLPi 


sSTARTING RECORD SIZE 


sSTARTING WRITE BUFFER ADCRESS 


8 9OOO6 666850466 6668066066666066668666660606666066660606666606060006060660660066 


1,ACK COMMAND 


} 
8 S206 068668 66666606866666660661 66666606666606666660606666660666000660066086 


s 
sWRITE DATA,CVC= 


CZTKGA TK-25 FRT END FUNC 03 


TEST 3: WRITE DATA RETRY 


054772 
054776 


012737 


057055 
011710 


104406 


012703 


140005 
055650 


000024 
177776 
0171354 
000000 


000200 


020116 


010444 


000000 
020116 


000001 
010144 


000000 
020116 
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055650 
055656 


180$: 


ERRSOFT ERRNO,WRTERR,PKTSSR 


CKLOOP 


DEC 
BNE 


D4 


#140005, T27PKS 
@T27PK3,R4 


PCW 
TSSR(RS),.R1 
@SSR,R2 

Ri ~R2 

1808 

PC. FATCHK 


RS 
1778 


sWRITE aS tie b »ACK COMMAND 

sSET UP R4 H PACKET ADDRESS 
sSET UP RECORD” SIZE IN PACKET 

S ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

sSET UWP EXPECTED 

ARE THEY EQUAL 


SEQ 249 


iTSSR” INCORRECT AFTER way Ls DATA 


sLOOP IF SELECTED 
TRAP 


sCOUNT NUMBER OF RECORDS 
sBR, IF MORE RECORDS TO WRITE 


8 9980800400046 0686 0604600606606 66666666666666666068066860666066060600646666 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
8 O08 060666808 60868666066860666606666060660660666606066606600606666066660666 


1828: 


ERRHRD ERRNO, T27RWN,PKTSSR 


CKLOOP 


PC ,REWINO 
182% 


RO,R4 
TSSRCRS),R1 
PC .FATCHK 


sISSUE REWIND 


3GET TSSR CONTENTS 
: INC AND CHECK FOR MORE THAN 25 
S REWIND FAILED — 


. WORD 
. WORD 
TRAP 


sSELECT LOOP MAYBE 


- AeanRRR RI aie itera ark ei eral eal eas 


s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


sBIT 15 SETS DIRECTION - O=FORWARD 


1 REVERSE 


+ 
8 92OO666606666606668 666666666 664660606660666066660606066666606066060606666060686 


PC ,FATCHK 
ERRHRD ERRNO, T27SCF ,.FKTSSR 


#1.,R5 

PC , SPACE 
165% 

RO,R4 

4 yoph 20 R1 


sSPACE 1 RECORD FORWARD 
ACE COMMAND 


sINC AND CHECK FOR MORE THAN 25 
1 SPACE FORWARD COMMAND FAILED 


CSERSOF T 
347 


WRTERR 
PKTSSR 


CSCLP1 


ERRORS 
CSERHRD 
348 
T27RWN 
PKTSSR 


CsCLP1 


ERRORS 


te 


TKGA_ TK - 


ST Sz 


055010 
055014 


Wate DATA RE 


011710 
104406 


012705 
0135737 


0127357 


000536 
057411 
011710 


104406 
013737 


012737 


000144 
003072 


101005 
055650 


000024 
177776 
017134 
000000 
000200 


020116 


003072 
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055652 


055650 
055656 


055652 


055650 
055656 


185$: 


CKLOOP 


MOV 
MOV 


100. ~R3 
FREE, T27W8 


SEQ 250 
TRAP CSERHRD 
-WORD 349 
-WORD T27SCF 
-WORD PKTSSR 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
sNUMBER OF RECORDS TO BE WRITTEN 
sSTARTING WRITE BUFFER ADDRESS 


Fleeced bbb bbb bbb bb biter rerii titi ti tititiititittititititty 


: 
sWRITE DATA RETRY,ACK COMMAND 


6 
8 9O8060000004000006660600006600046066066066666466666060666606660066046666666 


1908; 


2008: 


CKLOOP 
MOV 


#101005, T27PK3 
@T27PKS 


TSSR(RS),R1 


~~ Tiong 


PC .FATCHK 
ERRHRD ERRNO, T27WOC ,PKTSSR 


FREE, T27WB 


sWRITE DATA RETRY,ACK COMMAND 

sSET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


SUE C 
sWAIT FOR SSR TO SET 


sARE THEY EQUAL 
CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
"MORO 350 
-WORD T27wWOC 
PKTSSR 


. WORD 
;LOOP IF SELECTED 
CsCLPi 


TRAP 
sSTARTING WRITE BUFFER ADDRESS 


8 9O888606806606686 6666666068066 68666606066066066666066606646606466064666660688 


SWRITE DATA,CVC*1.ACK COMMAND 


& 
§ 9 OO0860606668668666006666 06060666 6666066666660660666600666060604666664606066 


ERRSOFT ERRNO,WRTERR,PKTSSR 


#140005, T27PKS 
@T27PK3,R4 


TSSR(RS),R1 
@SSR ,R2 


Ri, R2 


2108 
PC .FATCHK 


sWRITE DATA,CVC*1,ACK COMMAND 

:SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


OK 
s INC ANDO CHECK © OR MORE THAN 25 ERRORS 
sSOFT ERROR GENERATED BECAUSE THE 
sWRITE COMMAND IS NOT BEING CHECKED 
sHERE. IT WAS CHECKED IN LEAH2 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP > 
1 


. WORD 
-WORD WRTERR 


F4 


~ 9h TK-25 FRT MACRO M1200 20-APR-84 7:13 PA -7 
TEST 3: WRITE DATA RETR a i r SEQ 251 
055170 011710 . WORD PKTSSR 
10201 055172 2108: CKLOOP sLOOP IF SELECTED 
055172 104406 TRAP CSCLP1 
10202 055174 005303 DEC RS sBUMP DOWN RECORD COUNTER 
pete 055176 001311 BNE 190% 3B8R, IF MORE RECORDS TO WRITE RETRY 
10205 J PAASAAAHAEAHALESEAEEEASHEEEESAEEHASEEEEEESEAEEEEHRESEOAEHEEEODEEEEES 
10206 ; 
peed ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
10209 nushpbbnansesinedsadnananbemansadeennsatasaseenntaneeseneeneines 
10210 
10211 055200 004737 010444 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
10212 055204 103411 BCS 230% ;8R, IF NO PROBLEM 
10213 055206 016501 000000 MOV TSSRCRS),R1 :GET TSSR CONTENTS 
10214 055212 010004 MOV ~ er ;GET PACKET ADDRESS 
10215 055214 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
10219 055220 ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND NOT ACCEPTED 
055220 104456 TRAP CSERHROD 
OSS222 000540 . WORD 352 
055224 057055 . WORD T27RWN 
055226 011710 . WORD PKTSSR 
10220 055230 2308: CKLOOP ;LOOP IF SELECTED 
50008 O5523e 104406 TRAP CSCLPl1 
aeaee 8 9O0604206680064600666660660006066606066666000666060606606460606600606606066664666 
; 
pa sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
aes ; SSeESeheneNAnIeNRnaEebeNReRENER Renee 
10228 055232 013701 055546 MOV T27BFRe6,R1 sPICK UP xSTO 
10229 055236 010102 MOV R1,R2 ;SET UP EXPECTED 
102350 055240 052702 000002 BIS err, Re ;SET BOT BIT IN EXPECTED 
10231 055244 020102 CMP R1,R2 sD0ES EXP = REC'D 
10232 055246 001406 BEQ 240% ;B8R, IF EQUAL (OK) 
10233 055250 004737 020116 JSR PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
10237 055254 ERRHRD ERRNO, T27BOT ,EXPREC S TAPE NOT AT BOT AFTER REWIND 
055254 104456 TRAP CSERHRD 
055256 000541 . WORD 353 
055260 056551 . WORD T27B0T 
055262 016360 . WORD EXPREC 
10238 055264 2408: CKLOOP ;LOOP IF SELECTED 
055264 104406 TRAP CSCLP1 
10239 055266 012704 055650 MOV @T27PK3,R4 ;SET UP PACKET ADDRESS 
ony 055272 012737 000010 055652 MOV #10, T27RB ISET UP RECORDS TO SPACE OVER 
aoe §9O06666600606600606666660666664606660606606060060060466000060666006060060000006 
; 
rer sACK,CVC*1,SPACE FORWARD COMMAND 
soos Sal iat aehitlcesttaaneeeae nant teh ial dali ecntetehienah hindi aelen 
10248 055300 012737 140010 055650 MOV #140010, T27PKS sACK ,.CvC#1,SPACE FORWARD COMMAND 
10249 055306 010465 177776 2508: MOV R4, TSDBC R5) ; ISSUE COMMAND 
10250 055312 005237 055700 2528: INC T27CNU ;BUMP TIMER 


10251 055316 DELAY 1 sDELAY ABOUT 100US 


G4 
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055316 012727 000001 MOV 1,(PC)>+ 
055322 000000 -WORD O 

324 013727 002116 MOV LSOLY,CPC)>+ 
055330 000000 . WORD 
055332 005367 177772 DEC — 
055336 001375 BNE 
055340 005367 177756 DEC "320PC) 
055344 001367 BNE .-20 
10252 055346 016501 000000 MOV TSSRCRS),R1 sGET TSSR 
10253 055352 032701 000200 BIT OBIT7,R1 sCHECK FOR TSSR’S SSR SET 
10254 055356 001755 BEQ 252% sKEEP COUNTING UNTIL SET 
10255 055360 016501 000000 MOV TSSRCRS),R1 sGET STATUS FROM TSSR 
10256 055364 012702 000200 MOV @SSR ,Re sSET UP EXPECTED 
10257 055370 020201 CMP R2,R1 sWAS EVERYTHING OK 
10258 055372 001406 BEQ oe B ;BR, IF ALL IS WELL 
10259 055374 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
10263 055400 ERRHRD ERRNO, T27SCF ,PKTSSR sSPACE FORWARD DION’ T WORK OUT 
055400 104456 TRAP CSERHRD 
055402 000542 -WORDB 354 
055404 060317 . WORD T27SCF 
055406 011710 -WORD PKTSSR 
10264 055410 2605: CKLOOP sLOOP IF SELECTED 
055410 104406 TRAP CSCLP1 
10265 055412 013701 055676 MOV T27CNT RL ;TIME FOR WRITE SPACING 
10266 055416 013702 055700 MOV T27CNU ,R2 sTIME FOR WRITE RETRY SPACING 
10267 055422 160102 SUB R1,Re2 sGET‘'EM PRETTY CLOSE 
10268 055424 160102 SUB R1,R2 sGET‘'EM PRETTY CLOSE 
10269 055426 042702 007777 BIC @7777,R2 sCLEAR LOW 12 BITS 
10270 055432 005702 TST Re sR2 SHOULD BE ZERO 
10271 055434 001407 BEQ 3008 ;BR, IF GOOD CHECK 
10272 055436 004737 020116 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
10273 055442 005001 CLR Ri sREADY FOR PRINTOUT 
10277 055444 ERRHRD ERRNO, T27TIM,EXPREC ;TIME WAS NOT DIFFERENT ENOUGH 
055444 104456 TRAP CSERHRD 
055446 000543 -WORD 355 
055450 056644 . WORD T27TIM 
055452 016360 -WORD EXPREC 
10278 055454 3008: CKLOOP ;LOOP IF SELECTED 
055454 104406 TRAP CSsCLP1 
10279 055456 ENDSUB 3<  <<eeeeeeeee END SUBTEST >>>>>>>>>>>> 
055456 10073: 
055456 104403 TRAP CsESUB 
10280 055460 023727 002170 000031 CMP FATFLG,¢25. 3IS ERROR COUNT AT 25 
10281 055466 002402 BLT 999% ;BR, IF LESS THAN 25 
10282 055470 004737 020170 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
10283 055474 999%: ; 
10284 055474 004737 017372 JSR PC, TSTLOOP ;00 WE NEED TO ITERATE TEST 
10285 055500 103002 BCC 163% ;BR, IF NO LOOP REQUIRED 
10286 055502 000137 051106 JMP T27L00P sEXECUTE AGAIN 
10287 055506 163%: 
10288 055506 EXIT TST ;ALL DONE THIS TEST 
055506 104432 TRAP CSExIT 


055510 003322 -WORD L110066-. 


Tee UAT TE DATROREYRY °° 


055512 
05S 


055702 


100004 
055530 
000000 
000012 
055540 
000000 
000024 
000000 


H4 
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3¢ 
sLOCAL STORAGE FOR THIS TEST 


ie 
.BLK 
T27PACKET:; 


T27DATA: 


T27BFR: .BLKW 


, 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
10-<, -TUV2AE7> 


.BLKB 
T27PKe: 
. WORD 
. WORD 
. WORD 
. WORD 
oO BLKB 
T27PK3: 
WORD 
T27RB: 
T27WB: .WORD 
. WORD 
T27SZ: .WORD 
.EVEN 


EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T27RN: .WORD 
T27WOR: .WORD 
T27CON: .WORD 

. WORD 
T27CNT: .WORD 
T27CNU: .WORD 
T270LY: .WORD 


10-<, -TUV2AE7> 


100004 
T2/DATA 
0 

10. 
T27BFR 
0 

20. 

0 

es. 


100006 
tect 


6. 


10-<. -TUV2AE7> 


sCOMMAND PACKET FOR TEST 


SEQ 253 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


;B8SELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
s;DATA AREA 


sREREAD DATA (NEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 


;END OF DATA 


ANO ACK 


sTAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 


sDELAY COUNTER 


LXGA, TK FRT ENO F 
rest UATE DATA RE 
10345 
10346 
10347 
10348 
10349 
10350 
10351 055704 124 
10352 055772 124 
10353 056041 122 
10354 056136 120 
10355 i2e2 
10356 056270 124 
10357 056345 111 
10358 056426 l2e2 
10359 056462 124 
190 056551 124 
10361 056644 127 
10362 056721 122 
10363 057 124 
10364 057055 i122 
10365 057124 122 
10 057177 124 
10367 057246 104 
10368 057321 124 
10369 057411 124 
10370 057464 103 
10371 057537 124 
10372 057612 127 
10373 057701 i22 
10374 057763 122 
10375 5 122 
10376 060133 122 
10377 060221 127 
10378 060317 124 
10379 060374 124 
10380 060456 124 
10381 060536 104 
10 060633 127 
10383 
10384 
10385 
10386 
10387 
10388 
10389 
10390 
10391 060654 
10392 060654 
10593 060660 012701 
103594 060664 012721 
10395 060670 012721 
10396 060674 005021 
10397 060676 012721 
10398 060702 012721 
10399 060706 0050 
10400 060710 012721 
10401 060714 005021 


3 


RY 
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14 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TST27I0: 


< 


EVEN 


‘Tape Position Incorrect After By eee Previous (OPP=1)’ 
‘TSSR Incorrect After READ DATA Command’ 

‘REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 
‘POSITION (Space Command) Feiled, TSSR Not Correct’ 

‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Ill l Mode Bits, Failed ¥ Set ILC Bit In XSTO’ 

‘REREAD COMMAND Not Accepted’ 

‘TSSR Not Correct After WRITE DATA RETRY Command,At BOT’ 

‘Tape Not At BOT After REWIND yoy (BOT Not — In xXSTO)’ 
‘WRITE DATA RETRY''S Erase Tape Not Long wre 

‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

‘TSSR Not Correct After REREAD COMMAND Reject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Dete Pattern Not In Ram’ 

‘TSSR Init. Failed After REREAD COMMAND’ 

‘Orive 7 Select Failed To Set “OFL” In TSSR’ 

‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After REREAD DATA Command’ 

‘CvC Set, Didn'‘t Reset VCK In Buf fer’ 

‘TSBA Not Correct After REREAD DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XxSTO' 

‘Reading “Bye Record Failed To Set RLS Bit In XSTO’ 

‘Resi duel e Count Incorrect After Short Record Read’ 

‘'Readi Lore. Record Failed To Give Tape Status Alert’ 

‘WRITE DATA TRY, At Firet Record, Failed To Set RIB Bit XxST3’ 
‘TSSR Not Correct After SPACE RECORDS Command’ 

‘TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

‘TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Date Compare Error, Date Read From Tape Not Equal To Written’ 
-ASCIZ ‘Write Date Retry’ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;sWRITE SUBSYSTEM MEMORY COMMAND 


T27REST: 


VREG 


;SAVE THE REGISTERS 


@T27PACKET ,R1 sSTART OF THE PACKET 
#100004 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK 
@T27DATA,CR1)> sADORESS OF CHARAISTICS DATA BLOCK 
C(R1)-> sEXTENDED SS 

#10. ,(R1)-> sSIZE OF DATA BLOCK IN BYTES 
AL baa CRI Do sADDRESS OF MESSAGE BUFFER 


rt +4 oCR1)> sLENGTH OF MESSAGE BUFFER 
R1 


SEQ 254 


J4 


CZTKGA TK-25 ERT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 122-1 SEQ 255 
TEST 3: WRITE DATA RETRY 
10402 060716 012711 000000 MOV =—-_-@0, (R1) :SELECT DRIVE ZERO 
10403 060722 012702 000030 MOV =—-_-@24 ,R2 ‘NUMBER OF LOCATIONS TO BE CLEARED 
10404 060726 012762 177777 055540 64%: MOV § 0177777, T27BFR(R2) :ALL_ONES TO MESSAGE BUFFE 
10405 060734 005742 TST -(R2) sNEXT LOCATION 
10406 060736 022702 000000 CMP = @0,, R2 sAT END OF LOOP YET 
10407 060742 001371 BNE «64 sKEEP GOING UNTIL DONE 
10408 060744 000207 RTS = PC sRE TURN 
10409 
10410 
10411 060746 T27RT2: 
10412 060746 SAVREG sSAVE THE REGISTERS 
10413 060752 012701 055630 MOV =—s« @T27PK2,R1 :START OF THE PACKET 
10414 060756 012721 100006 MOV = #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
10415 060762 012721 055660 MOV =: @T27BF2,(R1)+ sADDRESS OF DATA BLOCK 
10416 060766 005021 CLR = (R1)+ sEXTENDED ADDRESS 
10417 060770 012721 000006 MOV =—-«@6., (R11) sSIZE OF DATA BLOCK IN BYTES 
10418 060774 005021 CLR = CR) 
10419 060776 012701 055660 MOV =: @T27BF2,R1 sPOINT TO DATA SEL AREA 
10420 061002 005021 CLR = (R1)> 
10421 061004 005011 CLR = CR1) 
10422 061006 000207 RTS = PC sRE TURN 
10423 061010 T27RT3: 
10424 061010 SAVREG :SAVE REGISTERS 
10425 061014 012701 055650 MOV =—_s«@T27PK3,R1 SET UP POINTER ADDRESS 
10426 061020 005021 CLR = (R1)+ sCOMMAND SPACE 
10427 061022 005021 CLR = CR)» sADDRESS OF DATA BLOCK 
10428 061024 005021 CLR = (R11) sEXTENDED ADDRESS 
10429 061026 005011 CLR = (R11) sSIZE OF DATA TRANSFER BLOCK 
10430 061030 000207 RTS _—s PC sRE TURN 
10431 061032 ENDTST 
061032 L10066: 


061032 104401 TRAP CseTstT 


+€ 


Sta: URETE/READ TAPE MARK 


034 
10451 061034 
10452 061040 
10453 061044 


10463 061100 


012737 
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002146 


3;* 


-SBTTL TEST 4: 


K4 


WRITE/READ TAPE MARK 


: 
;THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
;PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 


:BY Caer me an 


3; TAPE 
3S 


sFORMAT 
3 


R THE FORMAT COMMAND 


READ ANO 


THE SPACE RECORDS COMMANDS DETECT 

N ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
UBCOMMAND UNDE BEING TESTED, IT IS VERIFIED 

; THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 


THE 


COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


‘ 
;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 


T28LOOP : 


FATFLG 
KTFLG 


GEPRT2, EPRTSW 
K TENABLE 


KTOF 


F 


PC, 

@TST28I0,RO 
PC, TSTSETUP 
#1,LOOPCNT 


T4:: 
Pites FATAL ERROR FLAG 


sHOLD OFF KT 


sSECONDARY ERROR MESSAGE 
1 a KT11 OFF 

TURN KT11 BACK OFF IF THERE 
SASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
;PERFORM 1 ITERATIONS 


SEQ 256 


L4 


CZTKGA TK-25 FRT END F @ MACRO M1200 20-APR-84 08:13 PAGE 124 7 
TEST 4: WRITE/READ TAPE MARK . : SEQ 25 


10465 3* 
10466 ; 
pot ;TEST 4, SUBTEST 1 

. 
10469 ;VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
10470 s;PROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED 
10471 ;TO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
10472 ;STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
woth ;BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 

Hf 
10475 31. THE CONTROLLER IS INITIALIZED AND TAPE REWOUND 
ss ; THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 

a 
10478 32. A WRITE TAPE MARK COMMAND WITH CvC-1 IS ISSUED 
10479 : AND PROPER TERMINATION AND STATUS IS VERIFIED 
aes ; (I.E. vCK=0 AND TMK=1). 

; 
10482 33. SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH 
10483 ; CvC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL ) 
a ; AND STATUS (TMK) VERIFIED. 

; 
10486 34. A READ REVERSE COMMAND IS ISSUED AND PROPER 
10487 ; TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
10488 ; VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
eee ; TRANSFERRED INTO MEMORY. 

3 
10491 ;5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
10492 j PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
pote, ; (TMK) VERIFIED. 

3 
10495 36. THE TAPE IS RFWOUND AND A READ FORWARD COMMAND IS 
10496 ; ISSUED AND PP PER TERMINATION (TAPE STATUS ALERT) 
10497 ; AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
pote ; THAT NO DATA IS TRANSFERRED INTO MEMORY. 

? 
10500 37. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
10501 ; RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10502 : VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10503 ; OCCURED, TMK=*1 AND THAT RBPCR (RESIDUAL 
10504 ; BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10505 ; VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
10506 ; THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
10507 ; TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
10508 ; THE POSITION JUST BEFORE THE FIRST RECORD ON 
10509 : TAPE. 
10510 3 
10511 ;8. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
10512 ; SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
10513 ; TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
ete ; REVERSE INTO BOT (RIB) STATUS ERROR BIT SET. 

° 
10516 39. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
10517 : RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10518 ; VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10519 ; OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL 
10520 ; BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10521 ; VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 


TE a UAT TESRERD’ TAPE MARK 


103426 


000000 
013727 
000000 


003550 


004754 


002116 
177772 
177756 
063402 
020116 


063210 
010342 


020116 


M4 
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063402 


108: 


23%: 


THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 


TO BE PREMATURELY TERMINATED 


BGNSUB 

JSR PC, T28REST 

JSR PC, T26RTe2 

JSR PC, T28RTS 

MOV #10000. , T28DLY 
JSR PC ,SOF INIT 

BCS 20$ 

DELAY 250 

DEC T280LY 

BNE 10$ 

JSR PC .FATCHK 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
MOV @T2BPACKET ,R4 
JSR PC ,WRTCHR 

BCS 23% 

JSR PC .FATCHK 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 
CKLOOP 

JSR PC ,REWIND 

BCS 30% 

MOV TSSRCRS),R1 
MOV RO,R4 

JSR PC ,FATCHK 


»FATC 
ERRHRD ERRNO, T28RWN,PKTSSR 


SEQ 258 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T4.1: 


TRAP 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP DELAY ROUTINE 
300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
;DELAY ABOUT .25 SECONDS . 


;BUMP DELAY ROUTINE DOWN 
;BR, IF MORE DELAY TIME LEFT 
NC HE THAN 


;sCONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


. WORD 


CsBSUB 


#250,(PC)+ 
LSOLY.(PC)+ 
-6(PC) 

.-4 

-22(PC) 
.-20 
ERRORS 


CSERDF 
401 

SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


sISSVE WRITE CHARACTERISTICS 
;BR, IF COMMAND 


ISSUED OK 
;INC AND CHECK FOR — THAN 25 ERRORS 


;SAVE CONTENTS OF TS 
;sWRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 


;CALL TAPE REWIND COMMAND 

;6R, IF NO PROBLEM 

;GET TSSR 

;SAVE PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 
;sREWIND NOT ACCEPTED a 


CSERHRD 
402 
WRTMSG 
SF IMSG 


CscLPl 


ERRORS 
CSERWRD 
403 


Sta: WALTER 


10613 


E/RE 


064331 
011710 


004754 


AD TAPE MARK 


063210 
010342 


020116 


063236 
000020 


020116 


N4 
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063340 


30$: 


40$: 


68%: 


708: 


CKLOOP 


T26BFR+6,R1 
R1,Re 
#BIT1,R2 
R1,Re2 


40$ 
PC ,FATCHK 
ERRNO, T28BOT , EXPREC 


@T2BPACKET ,R4 
oe 


68 

PC ,.FATCHK 

RO,R1 
ERRNO,WRTMSG, SF IMSG 


#140011, T28PKS 


TSSR(RS), R1 
@SSR ,R2 
R1,R2 

70% 


PC ,.FATCHK 
ERRNO, T28WOC ,PKTSSR 


T2B8BFR+6,R1 

R1,R2 

@BIT4,R2 
»R2 


80$ 
PC ,FATCHK 
ERRNO, T28VCK ,EXPREC 


SEQ 259 
.WORD T28RWN 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 404 
-WORD T28BOT 
-WORD EXPREC 
;LOOP IF SELECTED 
CSCLP1 


RAP 
;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sINC AND CHECK FOR MORE THAN 2S ERRORS 
; SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC ty 


CSERHRD 
-WORD 405 
-WORD WRTMSG 
WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CsCLP1 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


;SET UP R4 WITH PACKET ADDRESS 
:; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER WRITE TAPE MARK 


TRAP CSERHRD 
-WORD 406 
-WORDB T28wOC 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CscLP1 


sPICK UP XSTO CVCK CHECK) 
;SET UP EXPECTED 

;VCK SHOULD BE 0 

:IS VCK SET CORRECTLY 

;BR, IF vCK IS CLEAR 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;VCK WAS NOT CLEAR AFTER CvC=1 


TRAP CSERHRD 
-WORD 407 
-WORDB T28VCK 
-WORD EXPREC 


sLOOP IF SELECTED 


She TK-25 FRT END FUNC ede 


TEST 4: WRITE/READ TAPE MARK 


0643531 


011710 


104406 
015701 


063256 
100000 


020116 


010444 


000000 
020116 


020116 


063256 
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0633540 


1508; 


1408; 
1508: 


1558: 


1658: 


BS 
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we phi Ri 
#6IT15,Re2 
oat ~ 


PC FATCHK 
ERRNO, T28TMK ,EXPREC 


PC ,REWINOD 
1308 


RO,R4 

TSSRCRS),R1 

PC ,.FATCHK 

ERRNO, T26RWN,PKTSSR 


ge Ay *6,R1 


TCHK 
ERRNO, T28B0T ,EXPREC 


#10. ,R3 
#140011, a 
@T26PKS,R 

R4, TSDBCRS) 
C.WAITF 
TSSRCRS),R1 
@SSR ,R2 

R1,Re2 

1658 

PC .FATCHK 
ERRNO, T28WOC ,PKTSSR 


SEQ 260 
TRAP CSCLPi 
sPICK UP XSTO (CHECK TMK) 
sSET UP EXPECTED 
374K SHOUL 
sWAS TMK SET 
;36R, IF TMK WAS SET 
s INC AND CHECK FOR MORE THAN 25 ERRORS 


sTMK WAS NOT SET AFTER WRT TAPE MARK 


TRAP CSERHRO 

-WORD 406 

-WORD T28BTMK 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


;CALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 

sSAVE PACKET ADORESS 

sGET TSSR STATUS 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 409 
WORD T26RWN 
WORD PKTSSR 
3L00P IF SELECTED 
TRAP CSCLP1 
sPICK UP XxSTO 
sSET UP EXPECTED 
ISET BOT BIT IN EXPECTED 
s300ES EXP = REC'D 
36R, IF EQUAL (OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
s TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
. WORD 410 
. WORD T286B0T 
WORD EXPREC 
3LOO0P IF SELECTED 
CSCLP1 


sNUMBER OF RECORDS TO WATE. ™™ 
iWRITE TAPE MARK ,ACK,CVC*1 COMMAND 
:SET UP R4& WITH PACKET ADDRESS 


UP TSSR 
sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 
sBR, IF TERMINATION WAS GOOD 
»INC AND CHECK FOR MORE THAN 25 Ons 
iTSSR NOT CORRECT AFTER nes 


CSERHRD 
-WORDB 411 
-WORD T28wOC 
.WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPl 


sPICK UP xXSTO 


24 aaa 500-09 tne tae (om 


061676 
061700 


100000 


020116 


177777 
020410 
003072 
140401 
063340 


000024 
177776 
017134 
000000 
100204 


020116 


0632356 
100000 


020116 


121000 
177777 


020116 


he 
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063342 
063340 


063346 


1808: 


2008: 


2108: 


R1,R2 
#8iT15,R2 
R1,R 
180% 

PC, FATCHK 

ERRNO, T28TMK,EXPREC 


RS 
155% 
#177777,R0 


#140401, T26PK3 
@T26PKS ,R4 

20. ,128SZ 

eS as Nad 

PC ,WAITF 
TSSR(RS),R1 
#SSRiSC1BIT2,R2 


i, 
200% 
PC ,.FATCHK 
ERRNO, T28RDF ,PKTSSR 


T26BFR°6,R1 
R1,R2 
@61IT15,R2 
2108 
PC ,FATCHK 
ERRNO, T28RRM,EXPREC 


OFREE,R1 

@177777,R2 

2208 

PC. FATCHK 

ERRNO, T28DTR,EXPREC 


SEQ 261 


+ UP EXPECTED 
sSET TMK BIT IN EXPECTED 
« REC'D 


(OK ) 
sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sTMK NOT SET AFTER WRT TAPE MARK 


TRAP CSERHROD 

-WORD 412 

-WORD T26TMK 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLPi 


sBUMP COUNTER DOWN 
s6R, IF LESS THAN 10 TAPE MARKS 
sVALUE TO WRITTEN ——— 


REVERSE , 
:SET UP R4 WITM PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 


3 ARE Y 
s8R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CsERHRO 
-WORD 4153 
. WORD T26ROF 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP xSTO 
4—e UP EXPECTED 
TMK SHOULD BE SET 
iIS TMK SET 


sBR, IF TMK WAS SET (GOOD) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3 TMK NOT SET AF YER READ -- 42 


CSERHRO 
-WORDB 414 
-WORD T26RRM 
WORD EXPREC 


sLOOP IF SELECTED 
TRAP CscLPi 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
s0I0 ANY DATA GET TRANSFERRED 
sBR, IF NO DATA TRANS (GOOD) 
sINC AND CHECK FOR MORE THAN 25 — 
:DATA TRANSFERRED ON READ oe ee 


CSERHRD 
TWORO 415 
-WORD T28DTR 
.WORD  EXPREC 


DS 


CZTKGA TK-25 FRT END FUNC @3 MACRO M1200 20-APR-84 08:13 PAGE 124-5 SEQ 262 
TEST 4: WRITE/READ TAPE MARK 
10712 062116 220%:  CKLOOP ;LOOP IF SELECTED 
062116 1044 TRAP = CSCLP1 
10713 062120 012737 100410 063340 MOV #100410, T28PK3 \SPACE REVERSE, ACK, COMMAND 
10714 062126 012737 000001 063342 MOV #1, T28RB sNUMBER OF RECORDS TO SPACE BACK 
10715 062134 012704 063340 MOV @T28PK3,R4 1SET UP_R4 WITH PACKET ADDRESS 
10716 062140 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
10717 062144 004737 017134 JSR PC, WAITF sWAIT FOR SSR TO SET 
10718 062150 016501 000000 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
10719 062154 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPEC 
10720 062160 020102 cep 1, ;ARE THEY 
10721 062162 001406 BEQ 222% :BR, IF 
10722 062164 004737 020116 JSR PC .FATCHK sINC_AND CHECK FOR MORE THAN 25 ERRORS 
10726 062170 ERRHRD ERRNO, T2SR0G,PKTSSR sTSSR INCORRECT AFTER SPACE CMD. 
062170 104456 TRAP §CSERHRD 
062172 .WORD 416 
062174 .WORD  T28ROG 
062176 011710 .WORD  PKTSSR 
10727 062200 222%:  CKLOOP ;LOOP IF SELECTED 
062200 104406 RAP = CSCLP1 
10728 062202 013701 053236 MOV T26BFR+6.R1 :PICK UP XSTO 
10729 062206 010102 MOV R1,R ;SET UP EXPECTED 
10730 062210 052702 100000 BIS eBiTis, R2 sTMK SHOULD BE SET 
10731 062214 020102 CMP R1,R2 11S TMK SET 
10732 062216 001406 BEQ 226% :BR, IF TMK WAS SET ) 
10733 062220 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
10737 062224 ERRHRD ERRNO, T28RRN,EXPREC ,TMK NOT SET AFTER SPACE REV 
062224 104456 TRAP §CSERHRD 
062226 000641 417 
062230 064735 -WORD  T28RRN 
062232 016360 .WORD EXPREC 
10738 062234 226%:  CKLOOP ;LOOP IF SELECTED 
062234 1044 TRAP = CSCLP1 
10739 062236 004737 010444 JSR PC ,REWIND :CALL_ TAPE REWIND COMMAND 
10740 062242 103411 BCS 2308 ;8R, IF NO PROBLEM 
10741 062 010004 MOV RO,R4 SSAVE PACKET ADDRESS 
10742 062246 016501 000000 MOV TSSR(RS),R1 ;GET TSSR 
10743 062252 004737 020116 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
10747 062256 ERRHRD ERRNO, T28RWN,PKTSSR sREWIND NOT ACCEPTED 
062256 104456 TRAP §CSERHRD 
062260 000642 .WORD 418 
062262 064331 -WORD T28RWN 
062264 011710 .WORD PKTSSR 
10748 062266 230%:  CKLOOP :LOOP IF SELECTED 
062266 104406 TRAP = C$CLP 1 
10749 062270 013701 063236 MOV T26BFR+6,R1 sPICK UP XSTO 
10750 062274 010102 MOV R1,R2 ;SET UP EXPECTED 
10751 062276 052702 000002 BIS @BIT1,R2 1SET BOT BIT IN EXPECTED 
10752 062302 020102 CMP s00ES * REC'D 
10753 062304 001406 BEQ 2408 1OR, IF EQUAL (OK) 
10754 062306 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
10758 062312 ERRHRD ERRNO, T28B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
062312 104456 | CSERHRD 
062314 000643 TuORD «419 
062316 064207 : -WORD T28B0T 
062320 016360 .WORD  EXPREC 
10759 062322 240%: CKLOOP ;LOOP IF SELECTED 
062322 104406 TRAP ss CSCLP1 


IKGA, Tk 25 F 
73h. ORT TE SRE RD: rat Maka 

10760 062324 012700 177777 
10761 062330 737 020410 
10762 062334 013737 003072 
10763 062342 012737 100001 
10764 062350 012704 063340 
10765 062354 013737 
10766 062362 010465 177776 
10767 062 737 017134 
10768 062372 016501 
10769 062376 012702 100204 
10770 062402 020102 
10771 062404 001406 
10772 062406 004737 020116 
10776 062412 

062412 104456 

062414 000644 

062416 064116 

062420 011710 
10777 062422 

062422 104406 
10772 062424 013701 063236 
10779 062430 010102 
10780 062432 052702 100000 
10781 062436 020102 
10782 062440 001406 
10783 062442 004737 020116 
10787 062446 

062446 104456 

062850 00064 

062452 065014 

062454 016360 
10788 062456 

062456 104406 
10789 062460 017701 120406 
10790 062 012702 177777 
10791 062470 020102 
10792 062472 001406 
10793 062474 004737 020116 
10797 062500 

062500 104456 

062502 000646 

062504 065072 

062506 016360 
10798 062510 

062510 
10799 062512 012737 100410 
10800 062520 012737 000005 
10801 062526 012704 063340 
10802 062532 010465 177776 
10803 062536 004737 017134 
10804 062542 016501 
10805 012702 100204 
10806 062552 020102 
10807 062554 001406 
10808 062556 004737 020116 
10812 062562 

062562 104456 


ote 
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MOV @177777,R0 


JSR PC ,FILLMEM 
063342 MOV FREE , T26RB 
063340 MOV #100001 , T26PKS 

MOV @T26PKS ,R4 
063346 MOV 20.,728S 

MOV R4,TSOBCRS ) 

JSR WAITF 


MOV @SSR!ISC!BIT2,R2 
CMP 2 


BEQ 2453 

JSR PC .FATCHK 

ERRHRD ERRNO, T2BWDE ,PKTSSR 
24538: CKLOOP 

MOV T2BBFR6,R1 

MOV R1,R2 

BIS 66IT15,R2 

CMP R1,R2 

BEQ 247% 

JSR PC .FATCHK 

ERRHRD ERRNO, T28RRP ,EXPREC 
247%: CKLOOP 

MOV FREE .R1 

MOV @177777,R2 

CMP R1,R2 

BEG 250% 

JSR PC .FATCHK 

ERRHRD ERRNO, T26D0TR,EXPREC 
2508: CKLOOP 

063340 MOV #100410, T26PKS 
063342 MOV e5 


JSR PC ,WALTF 

MOV TSSR(RS), Ri 

MOV @SSR!SC!BIT2, Re 

CMP R1,R2 

BEQ 2608 

JSR PC ,FATCHK 

ERRHRD ERRNO, T28ROG,PKTSSR 


SEQ 263 


sVALUE TO WRITTEN TO MEMORY 

sFILL MEM WITH ALL ONES 

sSTARTING READ BUFFER ADDRESS 

sREAD FORWARD, ACK, COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMANO 


s ISSUE C 
sWAIT FOR SSR TO SET 


sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER WRITE DATA . 


TRAP CSERHRD 
-WORD 420 
. WORD T28wWOE 
-.WORD PKTSSR 
;LO0O0P IF SELECTED 
TRAP CSCLPi1 
sPICK UP xSTO 
sSET UP EXPECTED 
3 TMK SHOULD BE SET 
:IS TMK SET 


3BR, IF TMK WAS SET (GOOD) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
; TMK NOT SET AFTER READ REV 


TRAP CSERHRD 
-WORDB 421 
-WORD T286RRP 
-WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


sFIRST LOC IN (READ 6 BUFFER 

sEXPECTED IF NO DATA TRANS. 

s0IO0 ANY DATA GET TRANSFERRED 

3BR, IF NO DATA TRANS (GOOD) 

sINC AND CHECK FOR MORE THAN 2S ERRORS 

sDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRD 


-WORD 422 

-WORD T280DTR 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsC.Pi 


sSPACE REVERSE ,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
sSET UP R4 WITH PACKET ADORESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 


sBR, IF OK 

sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

sTSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 


FS 


CZTKGA TK-25 FRT END FUNC a. 2 MACRO M1200 20-APR-84 08:13 PAGE 124-7 SEQ 264 
TEST 4: WRITE/READ TAPE MA 

062564 000647 -WORD 423 
062566 063625 -WORD T28RDG 
062570 011710 -WORD PKTSSR 

10813 062572 260%: CKLOOP sLOOP IF SELECTED 
062572 104406 RAP CSCLP1 

10814 062574 013701 063236 MOV T26BFR+6,R1 sPICK UP XSTO 

10815 010102 MOV R1,Re2 sSET UP EXPECTED 

10816 062602 052702 100000 BIS #6IT15,R2 sTMK SHOULD BE SET 

10817 020102 CMP R2 11S TMK SET 

10818 062610 001406 BEQ 270% 3;BR, IF TMK WAS SET (GOOD) 

10819 062612 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

10823 062616 ERRHRD ERRNO, T28RRN,EXPREC sTMK NOT SET AFTER READ REV 
062616 104456 TRAP CSERHRD 
062620 0006 -WORD 424 
062622 064755 -WORD T28RRN 
062624 016360 -WORD EXPREC 

10824 062626 2708: CKLOOP 3LOOP IF SELECTED 
062626 1044 TRAP CSCLP1 

10825 062630 013701 063234 MOV T26BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 

10826 062634 012702 000004 MOV @4.,R2 O BE THE DIFFERENCE 

10827 062640 020102 CMP R1,R2 3IS COUNTER C cT 

10828 062642 001406 BEQ 280% 3BR, IF COUNTER CORRECT 

10829 062644 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

10833 062650 ERRHRD ERRNO, T26PBP ,EXPREC sRESIOVAL BYTE COUNTER NOT CORRECT 
062650 104456 TRAP CSERHRD 
062652 000651 -WORDB 425 
062654 063461 -WORD T28PBP 
062656 016360 -WORD EXPREC 

10834 062660 280%: CKLOOP sLOOP IF SELECTED 
062660 104406 TRAP Csci.P1 

10835 062662 012737 100410 063340 MOV #100410, T28PKS sSPACE REVERSE ,ACK, COMMAND 

10836 062670 012737 1 0635542 MOV #1,T2 sNUMBER OF RECORDS TO SPACE BACK 

10837 062676 012704 3340 MOV @T26PKS ,R4 sSET UP R4 WITH PACKET ADORESS 

10838 062702 010465 177776 MOV R4, TSOBCRS) :IS C 

10839 062706 004737 017134 JSR PC ,WAITF sWAIT FOR SSR T 

10840 062712 016501 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

10841 062716 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPE 

10842 062722 020102 CMP R1,R sARE THEY E 

10843 062724 001406 BEQ 290% sBR, IF OK 

10844 062726 004737 020116 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

10848 062732 ERRHRD ERRNO, T28ROG,PKTSSR iTSSR INCORRECT AFTER tm CMO. 
062732 104456 CSERHROD 
062734 0006 THORO 426 
062736 -WORD T28RDG 
062740 011710 -WORD PKTSSR 

10849 062742 290%: CKLOOP sLOOP IF SELECTED 
062742 104406 TRAP CsCLP1 

10850 062744 013701 063244 MOV T26BFR+14,R1 sPICK UP XSTS 

10851 062750 010102 MOV R1,R2 sSET UP EXPECTED 

10852 062752 052702 000001 BIS @BITO,R2 sRIB SHOULD BE SET 

10853 062756 020102 CMP ’ sIS RIB SET 

108354 062760 001 BEQ 300% 3BR, IF RIB WAS SET (GOOD) 

10855 062762 004737 020116 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

10859 062766 ERRHRD ERRNO, T26RIB,.EXPREC sRIB NOT SET AFTER READ REV 
062766 104456 TRAP CSERHROD 
062770 000655 -WORD 427 
062772 063404 -WORD T26RIB 


TET UAT ETRE RD? TAPE hii 


10860 


016360 


100010 0635340 
000005 063342 


063340 
177776 
017134 
000000 
100204 


020116 


063256 
100000 


020116 


063234 
000004 


020116 


002170 
020170 


017372 


GS 
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000031 


3008: 


3108: 


3208: 


3308: 


#100010, T26PKS 
oS RB 


PC 
TSSRCRS),R1 
a 


3108 
PC ,.FATCHK 
ERRNO, T28ROF ,EXPREC 


a “pas RI 
eBir1s, R2 


CHK 
ERRNO, T28RRP , EXPREC 


T26BFR+4,R1 
04. ,R2 
R1.R2 

3308 


PC .FATCHK 
ERRNO, T26PBP ,EXPREC 


FATFLG, 025. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 


SEQ 265 


-WORD EXPREC 
sLOOP IF SELECTED 
TRAP 


CSCLP1 
sSPACE FORWARD,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE FORW. 
3;SET UP R4 WITH PACKET ADDRESS 
sISSVUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;B8R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER SPACE CMD. 


TRAP CSERHRD 

. WORD 26 

-WORD T28ROF 

WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sTMK SHOULD BE SET 

3IS TMK SET 

;BR, IF TMK WAS SET (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TMK NOT SET AFTER READ REV 


TRAP CSERHRD 
-WORDB 429 
-WORD T28RRP 
-WORD EXPREC 
sLOOP IF SELECTED 
CscLP1 


TRAP 
sPICK UP RESIDUAL BYTE COUNTER 
sSHOULD BE THE DIFFERENCE 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
;RESIDUAL BYTE COUNTER NOT CORRECT 
TRAP CSERHRD 
-WORD 430 
-WORD T28P6P 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 
g<<eeeeece<c<e*e END SUBTEST »>>>>>>>>>>> 
Ll 


0075: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
;6R, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


:00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 


H5 


KGA_ TK - R F MACRO M - APR - : PA - 
GELKC a GBT TE me HNO abe aki CRO M1200 20 84 08:15 GE 124-9 SEQ 266 
10907 0635174 000137 061100 JMP T28L00P sEXECUTE AGAIN 
10908 063200 163$: 
10909 063200 EXIT TsT sALL DONE THIS TEST 
063200 104432 TRAP CsExIT 


063202 002252 -WORD L10074-. 


CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 20-APR-84 08:13 PAGE 125 


SEQ 267 
TEST 4: WRITE/READ TAPE MARK 


10911 :¢ 
rete | ;LOCAL STORAGE FOR THIS TEST 
1 — 
10915 063204 .BLK 10-<, - TUV2AE7> 
10917 063210 T28PACKET: sCOMMAND PACKET FOR TEST 
10918 063210 1 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
10919 063212 063220 . WORD T28DATA sADDORESS OF CHARACTERISTICS BLOCK 
10920 063214 000000 -WORD O 
10921 063216 000012 . WORD 10. sSTARTING VALUE OF BLOCK SIZE 
10922 063220 T28DATA: sCHARACTERISTICS DATA BLOCK 
10923 063220 063230 . WORD T28BFR sADORESS OF MESSAGE BUFFER 
10924 063222 WORD O 
10925 063224 000024 -WORD 20. ;LENGTH OF MESSAGE BUFFER 
10926 063226 WORD O 
ped 063230 T26BFR: .BLKW 25. sMESSAGE BUFFER 
H 
poe ;sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
e 
10932 063312 .BLKB 10-<, - TUV2AE7> 
10934 063320 T28PKe: 
10935 063320 100006 . WORD 100006 ;sWRITE SUB SYS MEM COMMAND, IE AND ACK 
10936 063322 063350 . WORD T28BF 2 sADORESS OF SELECT BLOCK DATA 
10937 063324 000000 -WORDB O 
pte 063326 000006 -WORD 6, sSIZE OF DATA PACKET 
10941 063330 .BLKB 10-<., -TUV2AE7> 
10943 063340 | T28PKS: 
1 063340 100005 . WORD 100005 sREREAD COMMAND, AND ACK 
10945 063342 T28RB : 
10946 063342 003072 T26WB: .WORD FREE sADDRESS OF WRITE BUFFER 
10947 063344 000000 -WORDB O 
10948 063346 000000 T28SZ: .WORD 0O ;SIZE OF BUFFER CEXTENT) 
10949 -EVEN 
10950 : 
10951 ; 
10952 : 
10953 063350 T28BF 2: 
10954 063350 010 T28BS0O: .BYTE 10 ;BSELO AREA 
10955 063351 200 T28B8S1: .BYTE 200 ;sBSEL1 AREA 
10956 063352 000000 T28S2 -WORD O ;SEL 2 AREA 
10957 063354 000000 T28S3: .WORD 0O ;DATA AREA 
10958 ; 
10959 : 
10960 
pte ;TAPE MOTION PACKET COMMAND VALUES 
10963 063356 T28IMV: 
10964 53356 101411 . WORD 101411 sILLEGAL MODE BITS TEST DATA 
10965 ©.5340 102011 . WORD 102011 
10966 3362 103411 . WORD 103411 
10967 063364 177777 . WORD 177777 
10968 063366 100011 T28RN: .WORD 100011 sWRITE TAPE MARK COMMAND 
10969 063370 100411 T28WOR: .WORD 100411 sERASE COMMAND 
10970 063372 101011 T28CON: .WORD 101011 sWRITE TAPE MARK RETRY 
pte 063374 177777 . WORD 177777 ;END OF DATA 


JS 
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TEST 4: WRITE/READ TAPE MARK 
10974 063376 000000 T28CNT: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
10975 063400 000000 T28CNU: .WORD 0 sTAPE TIMER COUNTER STORAGE AREA 
pede 063402 000000 T28DLY: ‘sane 0 sDELAY COUNTER 
EV 


10978 


KS 
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TEST a: URTTE READ TAPE MARK 





10980 3¢ 

10981 ;LOCAL TEXT MESSAGES FOR TEST 

10982 3° 

10983 

10984 

10985 063404 124 141 160 T2S8RIB: .ASCIZ ‘Tape Position Not Correct, RIB Should Be Set’ 

1 063461 122 145 163 T2ePBP: .ASCIZ ‘Residuvel Byte Counter Register (RBPCR) Not Correct’ 

10987 063544 124 123 123 TeSBROF: .ASCIZ ‘TSSR Incorrect After RE REVERSE Into TAPE MARK’ 
10988 063625 124 123 123 T28ROG: .ASCIZ ‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 

10989 063707 124 123 123 T26WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 

10990 063764 111 154 154 T26_.0Q@: .ASCIZ ‘Ill l Mode Bits, Failed To Set ILC B: t In XSTO’ 
10991 064045 127 122 111 T2éessR: SCIZ ‘WRITE MISCELLANEOUS Command Not Accepted’ 

10992 064116 124 123 123 T2BWwOE: .ASCIZ ‘TSSR Not Correct After READ DATA eatin f Into TAPE MARK‘ 

10993 064207 124 141 160 T2SBOT: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 

10994 064 124 123 123 T28TM: .ASCIZ ‘TSSR Not Correct After FORMAT Command Re ject’ 

19995 064331 122 145 167 T2BRWN: .ASCIZ ‘Rewind CPOSITION) Command Not Accepted’ 

10996 064400 104 162 151 T2S0FL: SCIZ ‘Drive 7 Select Feiled To Set “OFLU” In TSSR’ 

10997 064453 124 123 123 T2BwOC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK Command’ 

10998 064532 103 126 103 T2evCK: .ASCIZ ‘CVC Set, Didn’''t Reset VCK In Message Buffer’ 

10999 06460 124 115 113 T2STMK: .ASCIZ ‘TMK Not Set After WRITE TAPE MARK Command’ 

11000 064657 124 115 113 T28RRM: .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 

11001 064735 124 115 113 T2BRRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 

11002 065014 124 115 113 T2SBRRP: .ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK’ 

11003 065072 104 141 164 T280TR: .ASCIZ ‘Date Transferred On READ REVERSE Into A TAPE MARK’ 
11004 065154 104 141 164 T28DTA: scI ‘Date C re Error, Date Read From Tape Not Equal To Written’ 
crest 065251 127 162 151 TST28ID: -ASCIZ ‘Write/Read Tape Mark’ 

11007 36 

11008 3 

11009 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
11010 ;WRITE SUBSYSTEM MEMORY COMMAND 

11011 : 

11012 3° 

11013 

11014 065276 T28REST: 

11015 065276 SAVREG ;SAVE THE or katear® 

11016 065302 012701 063210 MOV @T2BPACKET ,R1 ;START OF THE PACKET 

11017 065306 012721 100004 MOV #100004 ,(R1)->+ ;sWRITE SUBSYSTEM MEM. WITH ACK 

11018 065312 012721 063220 MOV @T2BDATA,CR1)> sADDRESS OF CHARAISTICS DATA BLOCK 

11019 065316 CLR CR1)> S EXTENDED ADDRESS 

11020 065320 012721 000012 MOV #10. ,.CR1)>+ ;SIZE OF DATA BLOCK IN BYTES 
11021 065324 012721 063230 MOV @T26BFR,CR1)> sADDRESS OF MESSAGE BUFFER 
11022 065330 1 CLR C(R1)-+ 

11023 065332 012721 000024 : MOV @20.,(R1)>+ sLENGTH OF MESSAGE BUFFER 
1024 065336 CLR CR1)> 

11025 065340 012711 MOV #0,(R1) ;SELECT ORIVE ZERO 

11026 065344 012702 000030 MOV 24, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 

11027 065350 012762 177777 063230 643% MOV 0177777, T26BFRCR2) s;ALL ONES TO MESSAGE BUFFER 
11028 065356 005742 TST -(R2) sNEXT LOCATION 

11029 065 020227 000000 CMP R2, 00 ;CHECK FOR END 

11030 065364 001371 BNE 64% sKEEP GOING UNTIL DONE 

11031 065366 000207 RTS PC ;RE TURN 

11032 

11033 

11034 065370 T28RT2: 

11035 065370 SAVREG ;SAVE THE REGISTERS 

11036 065374 012701 063320 V @T28PK2,R1 s;START OF THE PACKET 


LS 
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11037 065400 012721 100006 MOV #100006 ,,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
11038 065404 012721 063350 MOV @T2S8BF2,CR1)+ sADDORESS OF DATA BLOCK 
11039 065410 005021 CLR CR1)-+ sEXTENDED ADDRESS 
11040 065412 012721 000006 MOV 06.,CR1L)+ sSIZE OF DATA BLOCK IN BYTES 
11041 065416 5021 CLR CR1)> 
11042 065420 012701 06353550 MOV @T26BFe.R1 sPOINT TO DATA SEL AREA 
11043 065424 005021 CLR CR1)-« 

11044 065426 005011 CLR CR1) 
11045 065430 000207 RTS PC sRETURN 
11046 065432 T28RTS: 
11047 065432 SAVREG 
11048 065436 012701 063340 V @T28PK3,R1 ‘GET PACKET ADDRESS 
11049 065442 005021 CLR CR1)> ;CLEAR COMMAND AREA 
11050 065444 005021 CLR CR1)-> ;CLEAR ADORESS AREA 
11051 065446 5021 CLR CR1)> ;CLEAR EXTENDED ADDRESS AREA 
11052 065450 005011 CLR CR1) ;SIZE OF DATA TRANSFER 
11053 065452 000207 RTS PC ;RE TURN 
11054 065454 ENDTST 
065454 L10074: 
065454 104401 TRAP CsETST 
11060 
11065 
11071 
11072 
11073 
ts .SBTTL WARDWARE PARAMETER CODING SECTION 
11076 306 
11077 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
11078 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
11079 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
11080 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
11081 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
1082 ; WITH THE OPERATOR. 
11083 3-- 
1 065456 BGNHRD 
065456 000015 -WORD L10076-L8SHARD/2 
—— 065460 L SHARD: 
11086 065460 GPRMA HPM1,0,.0,160000,177776, YES ;GET TSBA/TSOB REGISTER ADDRESS. 
065460 000031 . WORD TSCODE 
065462 065512 .WORD HPM1 
065464 160000 . WORD TSLOLIM 
065466 177776 .WORD # TSHILIM 
11087 065470 GPRMA HPM2,2,0,.0.776., YES ;GET VECTOR ADORESS. 
065470 001031 . WORD TSCODE 
065472 065541 .WORD HPM2 
065474 . WORD TSLOLIM 
065476 000776 . WORD TSHILIM 
11088 065500 GPRMD HPM3,4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 
065500 002032 . WORD TSCODE 
065502 065565 . WORD 
065504 000340 . WORD ) 
5506 000000 . WORD TSLOLIM 
065510 000007 . WORD TSHILIM 
11089 065512 — 
.EVEN 


MS 
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065512 
11090 065512 
11091 065541 
11092 065565 
11093 
11094 


104 
111 
111 


126 
124 
124 


L10076: 
HPM1: 
HPMe: 
HPMS3: 


.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 


‘DEVICE ADDRESS (TSSR) ' 
‘INTERRUPT VECTOR  ' 
‘INTERRUPT PRIORITY 


SEQ 271 


NS 
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066022 


000006 


065634 
177777 


177777 


3 oe 


L$SOFT:: 


3° 
;DISPATCH TABLE 


.SBTTL 


SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T 
-WORD L10077-L$SOFT/2 


. SBTTL 


T$CODE 

“te 
SPM4,2,-1,YES ; GET ITERATION CONTROL. 
TSCODE 


-1 
SPM6 .4,.0,7777,0,7777, YES 
SPM7,.6,0,7777,0,7777, YES 


; GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 


‘ENABLE CONTROLLER RAM DUMP ON ERROR’ 
‘INHIBIT ITERATIONS . 
‘PER TEST ERROR LIMIT . 
‘PER UNIT ERROR LIMIT ‘ 


PATCH AREA 


) 
; ##¢ MOVE TO FRONT OF PROGRAM FOR RELEASE «ae 


tae TESTNO 
LSDISPATCH:: 

. WORD Ti 

. WORD T2 

. WORD T3 

. WORD T4 


FINALLY A GENEROUS PATCH AREA, 


AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT?” HACK 
DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 


SEQ 272 


6 


BRA 
—— 


KGA TK-25 FRT END FUNC @3 
CH AREA 


066040 
000005 


000001 


LSLAST:: 


gee 
i 
gee 


L10100: 


L1010e: 


IF 


NZ, .€377 


oF 13771 
ENOC 


LASTAD 
N 


EVE 
.WORD TSFREE 
.WORD TSSIZE 


.SBTTL WARD CODED P-TABLE 


DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
BGNSE TUP 
BGNP TAB 


. WORD 
. WORD 
. WORD 
. WORD 


. WORD 
ENDP TAB 
ENDSE TUP 


B6 
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sSET LAST USED ADDRESS. 


i 


0 

L10102-./72-1 
172522 
224 


PRIOS 


SEQ 275 


CEUKGA Keep FRT END FUNC @3 


000003 
003110 
016564 


000400 G 


CsAU = 
CsAuUTOe 
BRK = 


DATAFL 
DATASC 
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021152 


011474 
00 


FATERR= 000060 


°o 
OHH oO 


FATFLG 
FERCM 


002170 
011564 


G 


Oonan 


007776 
00000 


172314 


G 


Oo 


Oona 
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KIPOR7= 172316 L$SOFT 065620 G L10061 042734 NXRX 003675 PRMESS 014072 
KTENAB 003102 G L$SPC 002056 G L10062 043654 NXTU 022224 PRMNO 002264 G 
KTFLG 003100 G L 002020 G L10063 044652 ae, PRMSGE 015436 G 
KTINIT 021636 LSSPTP 002024 G 10064 045222 ONEFIL®= PRMSGO 015616 
KTOFF 020262 LSSTA 002050 G L10065 045664 OSAPTS= 000L00 PRMSG1 

KTON L$Sw 002154 G L 10066 OsAU = 000001 015721 
LERRMA 002140 G LSTEST 002114 G L10067 051456 OSBGNR= 000001 PROASC 014730 
LISTAL= 000001 LsTIm 002014 G L10070 052250 OSBGNS* 000001 PRIASC 014775 
LOE =#= 040000 G LSUNIT 002012 G L10071 053044 Os0U = 000001 PST32W G 
LOOPCN 002164 G L10000 L10072 053740 OSERRT= It 022512 
LOOPCO 012770 110001 002144 L10073 055456 OSGNSW= 000001 PW.011* 000021 
LOOPFL 003114 G L10002 L10074 OSPOIN= 000001 PW.013=" 000022 
LOT = 000010 G L10003 011706 L10075 063150 OSSETU= 00000 Pw.D022* 000020 
LSACP 002110 G 110004 011736 L10076 065512 PASRPT 022256 * 000000 
LSAPT 002036 G L10005 011754 L10077 34 PATCH 22 G PW.NO1= 000023 

L SAU 022560 G L10006 011762 L10100 PATDAT 021150 PW.RDE= 000024 
LSAUT 002070 G L10007 0 L10102 066040 PC.ERA= 002400 PW.ROR= 000001 
LSAUTO 022764 G 110010 012016 013616 G .TER= 002000 PwW.ROS= 

LsCCP 002106 G L10011 MENASC 021567 * 001000 PW.RFI= 0000035 
LSCLEA 023040 G 110012 012102 MENERR 021314 PC .REL= 000000 PW.WCT= 

Lsco 002032 G 110013 012252 MENRES 021416 PC .REW= 000400 Pu.WFI= 000004 
LSDEPO 002011 G 110014 012766 MESBFA 002716 G PKBCNT« WFM= 000007 
L$DESC 003342 G 110015 013614 014650 PKHI = PW.WMI= 000010 
LS$DESP 002076 G L10016 0136356 MESHEA 015035 PKLOW = PW.WNP= 000011 
LSDEVP 002060 G L10017 MMVEC = PKTADO 007302 PW.WTR= 

LSDISP 066012 G 110020 0163572 = 174406 PKTFRM 007244 P.ACK = 100000 
L$DLY 002116 G 110021 01 MSA.FR= 000006 PKTGET 011740 G P.CMD = 000037 
LSOTP 002040 G 110022 016412 MSA.NO= 000000 PKTMES 011764 G P.CONT= 000012 
LSOTYP 002034 G L100235 016434 MSA.NR= 000004 PKTNEW 0073357 P.CvC = 040000 
L$0uU 022656 G 110024 016462 MSA.VO= 000002 PK TRAM 3G P.FMT = 000140 
LsOUT 002072 G 110025 016622 012020 G PKTSSR 011710 G P.FORM= 000011 
LSOVTY 003334 G 110026 017152 012726 G T # 001000 G P.GETS=* 000017 
LSeF 002052 G L10030 022510 MSGSTA 012212 G PRAMPK 013640 P.IE = 

LSENVI 002044 G L10031 34 013604 G PRBEXP 016554 P.INIT= 000013 
LSETP 002102 G L100 022762 MS.ATT= 000006 016222 P .MODE= 007400 
LSEXP1 002046 G L10033 MS .EXT= 000200 0163556 P.OPP = 020000 
LSEXP4 002064 G L10034 025064 MS.RSD= 000001 PRBTOT 016307 P.POSI= 000010 
LSEXPS 002066 G 110035 0235526 MS.RSF* 000020 PRBYTE 016006 G P.READ= 000001 
LSHARD 065460 G L10036 031664 MS.RST=* 000010 PRI = G P.SWB = 010000 
LSHIME 002120 G 110037 024372 A # 002000 PRIADD 007716 P.WRIT= 000005 
LSHPCP 002016 G 110040 025032 NEWPAS 022212 PRIAQ 007766 P.WRTC= 000004 
LSHPTP 002022 G 110041 025466 v oO G PRIBXO 007350 G P.WRTS= 

L $hiw 002124 G 110042 026216 NOINIT 004235 PRIEQU 007616 QvP 002 G 
LSICP 002104 G 110043 027144 NOINTR 004117 PRIPKT 007076 G RAMASC 014006 
LSINIT 022000 G 110044 027454 NOITS 002136 G PRIRAM 007624 RAMDAT G 
L SLADP G L10045 021454 PRITAD 010032 RAMER G 
LSLAST 110046 051034 NP.IR = 000200 PRITSS RAMERR 016574 G 
L$LOAD 002100 G 110047 032616 NP ..LOO= PRITO 010102 RAMEXP 016414 G 
LSLUN 002074 G 110050 0355454 NP .OUT*= 000100 PRIXOR 007500 G RAMFHR 014552 
LSMREV 002050 G L10051 034340 NP .WRP = PRIOO = 000000 G RAMFOR 007654 
LSNAME 002000 G 110052 05 N 004050 PRIO1 = 000040 G RAMALD 0110350 
LSPRIO 002042 G L10055 NSINIT 004 PRIO2 = 000100 RAMIOP 011034 
LSPROT 021770 G L10054 036656 004425 PRIOS = 000140 G RAMPD 011105 
LSPRT 002112 G 110055 037520 NULCR 004426 PRIO4 = RAMRSH 011032 

L SREPP 2062 G L10056 040362 NXM © 004000 PRIOS = 000240 G RAMSIZ 002246 G 
L$REV 002010 G L10057 041250 NXR 003636 PRIO6 = 000300 G RAMTAD 016402 G 
LSRPT 023066 G L10060 042076 NXRERR 005176 G PRIO7 = 000340 G RBPCRA 015145 


E6 
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SYMBOL TABLE 2 
RCVHIA 002250 G SO.ION= 000040 TSTPTR 002262 G TS$$SUB= 010075 T25TM 030524 
RCVLOA 002252 G SO.IRD= 000100 TSTSET 017424 G T$$SW = 010001 T25WB 8 030242 
R 005104 SO.IRW= TST25I 031462 TS8TES* 010074 T25WOC 031411 
READ = 000014 SO.ISP= 000200 TST26I T1 23650 G T2SWOE 030377 
READY = 00000 $1.ICE= 002000 TST27I 0606353 T1.1 023710 T25WOR 030260 
RE 002432 G $1. IEO= 010000 TST26I 065251 T1.2 024410 T2SWNG O 7 
RECV 002 G S1.IFM= 001000 TTIBFRe 177562 G 1.3 250 T2SWNH 031042 
REGSAV 021054 $1.IHE= 000400 TTICSR= 177560 G T1.4 025504 T26AM3 
REWIND 010444 G $1.IID= 004000 TTIVEC= T1.5 026234 T26BA 050076 
RMCHBE= 000167 $1.IiR= 020000 TTOBFR= 177566 T1.6 027162 T268FR 045750 
RMCHEN= 000200 S$1.I2R= 040000 TTOCSR= 177564 T1.7 027472 T26BF2 046070 
RMMSGB= 000104 S1.PAR= 100000 TUV2A T2 031 G T2680T 047125 
RMMSGE= 000117 S2.ATI* 000010 TSARGC* 000003 Te. 0317352 T268SO0 046070 
RMPKTB= 20 S2.6TI= TSCODE* 001130 T2.10 041246 T268S1 046071 
RMPKTE= 000027 S2.O0IM= TSERRN= 000656 T2.11 042114 T26CNT 046106 

= 010000 S2.ILwW= 000100 TSEXCP= 000000 T2.12 042752 T 046110 
RWPACK 010540 . INR» TSFLAG= 000040 T2.13 043672 T26DAT 045740 
S = 100000 S2.0UT= 000040 TSFREE= 066040 T2.14 044670 T260LY 046114 
SCE = UND= 000005 TSGMAN= 000000 T2.15 045240 T260TA 047172 
SCME 004711 TBLEND= 0030350 G TSHILI* 000007 T?.2 T26EOT 047260 
SDELAY 010340 TCOASC 006204 TSLAST= 000001 T2.3 033472 T26LON 2 
SEEK = TCOCOD 006404 TSLOLI* 000000 T2.4 0343556 T26L00 031732 
SELASC 021362 TEMP1 003064 G TSLSYM= 010000 T2.5 035276 T26LOP 050322 
SELDAT= TEMPS 003066 G TSLTNO= 000004 T2.6 036044 T26L0Q 046736 
SELe = TERCLS= 000016 TSNEST= 000000 T2.7 936674 T26LOR 046611 
SE TMAP TESTNO= TSNSO = 000000 T2.8 037536 T26NEF 046204 
SETU 022310 TEXASC 006145 TSNS1 = 000005 T2.9 T26NEQ 
SFFMSG 011756 G TFCASC 006245 TSNS2 = 000002 T210FL 030274 T260FL 047605 
SFHERR 3 TIMEXP 016436 ( TSPCNT= T2S58FR 030130 T26PAC 045730 
SFIERR 003550 TIMSGO 016464 TSPTAB= 010101 T258F2 030250 T26PBP 050404 
SFIMSG 011676 G TINERR 011665 TSPTHV= « T 030752 T26PK2 046040 
SFPTBL 002134 G TB = 177562 TSPTNU= 1 T2S80T 020457 T26PK3 046060 
SIFLAG 003106 G TKS  # 177560 TSSAVL® 177777 T258S0 030250 T26RB 
SIMSG 011630 TMPBFR 002576 G TSSEGL® 177777 T258S1 030251 T26ROF 046266 
SKIPT 003332 017620 TSSIZE= T2SCNT 030270 T26RES 
SOFINI 016660 G TPB == 177566 T $SUBN= 1 T2SCN2 O T26RN 046076 

010144 G TPS = 177564 TSTAGL® 177777 T2SCON 0350262 T26RNC 0474635 | 
SPM1 065634 TRANST 134 G TSTAGN= 0101035 T2S0AT 030120 T26RRF 046335 
SPM4 065700 TSBA = 177776 G TSTEMP= T250LY 030272 T 
065730 TSBAH = 177777 G TSTEST= T25L00 023710 T26RSZ 046112 

SPM7 065760 TSBAL = 177776 G TSTSTM* 177777 T2SNEF 031125 T26RT2 050742 
SRO = 177572 TSOB © 177776 G TSTSTS= T2SNET 030615 T26RTS 051004 
SR1 == 177574 TSOBH = 177777 G TSsAU © 010031 T2S50FL 031336 T26RWN 047414 
SR2 = 177576 TSOBL = 177776 G TSSAUT= 0100355 T2SPAC 030110 T26SC 046527 
SRS = 172516 TSFCOO oS) TSS8CLE* 010034 T25PK2 030 T26SSR 047017 
SSR = = 000 TSREJ = TS8DAT* 010102 T25PKS 030240 T26SZ 
STATCO 012254 TSSOEF 006314 TS$sOU = O1 T2SRB 030242 T26S2 046072 
SVCGBL= C00000 TSSR = G TSSHAR= 010076 T2SRES 031500 T26S3 046074 
SVCINS= 000000 TSSRBI 003400 G T$$HwW = 010000 T25RIB 031205 T26T™M 047337 
SVCSUB= 000001 TSSRFO 0061235 TS8INI*= 0100350 Te 0 T26TRL 050472 
SVCTAG= 000000 TSSRH = 000001 G TS8MSG* 010025 T2SRT2 031572 T26VCK 050023 
SVCTST= 000001 TSSX 003716 TS$PC «= T2SRTS 031634 T26W8 
SS$LSYM= 010000 TSTBLK 002720 G TS$SPRO* C10027 Tes 031267 T26WOC 047750 
SO.IDB= 000010 TSTCNT 002162 G TS$PTA= 010101 T2S5SSR 030316 T26WOD 047660 
SO.IFB= 000002 TSTEND 017634 TS$RPT= 010035 T25SZ 030246 T26WDE 047053 
SO.IFP= 000001 TSTFLA 002260 G T$$SOF = 010077 T25S2 030252 T26WOF 046661 


SO.ILD= 000020 TSTLOO 017372 G TS$SRv= 010026 T2583 030254 T26WNG 046116 


STHeoL 


. ABS. 


000000 
ERRORS DETECTED: 


Vace FRT END FUNC @3 


066040 


000 


00 
0 


VIRTUAL MEMORY USED: 


CZTKGA.BIC,.CZ 


a 


29424 WORDS ( 
20060 WORDS 


00:37:17 
TKGA/ -SP=SVC/ML ,CZTKGA 
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055662 T26RES 
055664 T26RIB 
056644 28RN 
057000 T28RRM 
060155 T26RRN 
0603574 T2BRRP 
057464 T26RT2 
055652 T26RTS 
057411 4 
057321 T26SSR 
056462 T28SZ 
056270 T28S2 
055670 T28S5 
055704 T26TM 
T26TMK 
057612 T26VCK 
063250 T26W8 
063350 T286WOC 
064207 T26WDE 
063350 T28WOF 
063351 T2BWOR 
063376 T3 
063400 T3.1 
063372 T3.2 
32 T3.3 
063402 ™3.4 
065154 3.5 
065072 v4 
063356 T4.1 
061100 UAM = 
063764 .  UNITN 
00 UNREC = 
0635210 UsI 
063461 WAITF 
063320 WC. IFA= 
063340 WC .IFE= 
063342 wC . IGO= 
063544 WC. IRE= 
063625 
115 PAGES) 


77 PAGES) 
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F6 


~ an] 
m D 
o x 
* 8 


5 


XSOTMK = 


Oooncd 


XSOVCK= 
XSOWLE = 


SEQ 277 


